(( سْبّحَانك لا عِلم لا إلا مَا عَلَمْنَتَا 
انك أثت ثت اليم الحكيم )) 


الوجيز في الجديد 


استثمر اللغة بكل طاقتها 
الطبعة الأولى ٠٠٠٠١‏ 


*حقوق كتاب "الوجيز في الجديد" محفوظة للمؤلف ولا يحق لأي شخص أو جهة 
رسمية إعادة نشر هذا الكتاب أو جزء منه باي وسيلة دون الإذن الخطي من 
الموؤلف 


*أسماء البرامج المذكورة في هذا الكتاب هي علامات تجارية مسجلة لأصحابها 
ا هذه العلامات ويقر بملكيتها سواء كانوا أفراد أو شركات أو أي 
جهة تنظيمية ولم يتم ذكرها للاختصار 


تم اختبار المادة العلمية في هذا الكتاب والتحقق منها ومراجعتها إلا أن المؤلف 


غير مسؤول بأي شكل من الأشكال عن الأضرار الناتجة عن سوء التطبيق أو 
الأكواد المستخدمة 


*جميع الآراء الموجودة في هذا الكتاب تعبر عن رأي المؤلف الشخصي حتى ولو 
لم توثق بأمثلة أو أدلة. 


*هذا الكتاب مجاني عسى الله ينفع به كل مسلم... 


إهداء د س ن د 
شکر و تقدیر تت 
الفصل الأول 

إنشاء التوابع EE EEE‏ 
وال اکل O EEE‏ 
دوال موارد اللغة El‏ 
الدوال الرياضية EE ETON NIEHS‏ 1 

e e E CE الدوال الرياضية القديمة‎ 

دوال الوقت a E‏ 
دوال الموارد المالية E‏ 
دوال النصوص(السلاسل النصية) ن د ات ب ا د ۱ © 
دوال التعامل مع الملفات NENE E‏ 1 
دوال المعلومات E E OEE‏ 


O EO دوال التفاعل‎ 


الإهداء 


أهدي هذا الكتاب والذي أرجو من الله أن يتقبله 


بقيت الأفعال عاجزة عن رد الجميل. 


مع تحياتي: 


شکر و تفدیر 


الحمد لله الذي لا يحمد على مكروه سواه. 

وبداية أتوجه بالشكر لكل المناضلين لإيصال الحق إلى المسلمين ولطلبة العلم 
والعالمينء 
وأتوجه بالدعاء إلى الله أن يستفيد المبرمجين ويقدمهم خطوة على الأقل إلى الأمام. 
ولن أنسى أن أشكر: الأخ: تركي العسيري الذي فجر عندي كل الأحداث التي تشد 
المبرمج نحو الأمام o.‏ 
ولا أنسى الكثير من المبرمجين الذين أروني أن الحماس طريق نهايته جميلة وإلى 
کس 


بلاد الشام - الأرض المباركة 
mailto:Mccn@gawab.com‏ 


لمن هذا الكتاب 


أولا -إذا كنت من المبتدئين فسيكون لك مرجع تلتهم منه الأفكار. فقط عليك التركيز 
فالأمثلة المتبعة أبسط الأمثلة ؟ 


ثانیا: فاذا كنت من أصحات الإصدارات القديمة ولم تجرأً علی التقدم للأمام فلعله 
كتاب تطوير انفسك Update‏ 


ثالثا. أما إذا كنت من المتقدمين فلن يكون إلا أوراق إنعاش لك وراحة لنفسي 
وإعطائها الجرأة على التقدم في كتب أخرى بإذن الله 


أما إذا كنت من المنتقدين وأرجو من الله أن لا تكون. أن تنظر إلي نظرة خير بإذن 


الله؟ 


الأفكار التي ستعرض فيه 


١-أفكار‏ جديدة وربما أول مرة تسمع عنها؟ 

-حلول لحوالي العشرات من الأمور المستصعب حلها؟ 

۳-شرح خاص لعدة أمور ومنها تركيب التوابع وإنشاء الملفات وغيرها من الأمور 
التفاعلية؟ 

-٤‏ أقول أن الدوال التي سوف أذكرها ليست كل الدوال فكما تعلم أصبحت مفهوم 
البرمجة معظمه دوال فلذلك قدمت شرح أصناف رئيسية قديمة كانت أم جديدة؟ 

-٥‏ حاول التركيز على الأفكار فتطبيقها يكاد يكون أسهل مما تتوقع فلن تحتاج 

قر عة الأمثة ار تظقها آمر ضا 

٣-إن‏ هذا الكتاب هو جزء من سلسلة تحوي نفس العنوان الوجيز في الجديد. 
۷-سيتم بإذن الله ذكر إصدار الذي تعمل فيه الدالة ووجودهامن .٠٠٠٠١-۲٠٠۰۲‏ 


. 

مفدمه 
منذ أول يوم رأيت هذه اللغة تفجرت عندي المواهب المخبأة يام النحت على الخشسب 
وتجميع الدارات الإلكترونية البسيطة لتشكل عندي روى خاصة. 
صحيح بأن مشواري البرمجي لم يمضي عليه سوى خمسة أعوام ثلاثة منها قضيتها 
صحيح أ ن للبرمجة أهداف كثيرة لطالما سعى الإنسان إليها ولكن ليس لكل شيء حل 
فيها مادامت من الجوهر مقيدة» ولكن منها تستطيع العمل والتطوير لتصل لحقيقة 
واحدة»ء أن العلم فائدة. 
وأحببت أن أقدم شرحا لمعظم الاوامر التي ستغني مبرمجينا عن التفكير بحلها 
لتدفعهم نحو أشياء ذات أهمية وما تبقى دون ذلك فهو خاص برؤى تنير الطريق 
نحو مستقبل واعد وأقدم كلمات حب لهذه اللغة وهي وجيز من كلمات كتبتها 


(( تذكرتك وذكراك عطرة ورسمتك جميلة لا بشعة كلام كت كتبته والعقل فيك مشتاق في 

كل زاوية فكرة صحيح أنك كثيرة الأخطاء ولكن تبقى ذكراك أجمل صحيح أنك 
كثيرة الأخطاء ولكن الحياة معكي أفضل بدونك أنسى وأحلم باليوم الذي سوف 
تصبحين أجمل فأجمل تقل مع السنين أخطاءك ويكبر عقلك وتتسع ذاكراتك 
لتسيطري على الجهاز المكسل وتصبحين أقوى وأذكى والتعامل معك يصبح أسهل 
لاداعي للعصبية الحمقاء أحيانا فرسالة الطوفان أكاد أكرها وأخرى وقت التشغيل 
تكاد لاتفهم وبعد عامين على اللقايا أصبحت أسمن وبالحجم إزدتي حتى طررت 
لشراء هارد أكبر ولكن سيأتي يوما لنحقق الحلم ونصبح أفضل......)) 


مدخل إلى الفيجوال بيسڭ ۷ (٤مہ)‏ 


لن أبد حديثي عن قدرات الإصدار الجديد وأسترسل لها بالمديح ولكن يمكن أن نعتبره كما قال 
الكثير ومنهم الأخ تركي العسيري أنها لغة جديدة ولكن بامام؟ قديمة وأزيد على ذلك 
وأسميه خط تطوير تجاري فالغرض منها تغير الواقع البرمجي من منحى بسيط إلى آخر 
معقد لن تستطيع الافراد بمفرده العمل عليه بسهولة فسوف يطيل والملل سوف يصير أقرب إلى 
نفس المستخدم ولكن كما تعلم أضافت ما يسمى السي شارب 

فهل تعرف لما: أولا أنه معظم الذين كانوا من مبرمجين الإصدارات القديمة هم الذين استمرو 
في إصدار الفيجوال نت وأما جل المبتدئين فإما انخرطوا في سياق اللغات المشهورة عالمية 
والجديد منها ٠‏ 

فلو لاحظت الدعم التي تقدمه مايكروسوفت في لمبرمجي الفيجوال سي هي أكبر بكثير من 
الدعم الذي تقدمه لمبرمجي الفيجوال بيسك وشاهدنا ذلك في الإصدار القديم لا أقصد ال Help‏ 
ولکن أقصد الأدوات وبرامج إضافية ومكتبات تخزین . 

وكما قلت لك فإنه مجرد الحفاظ على مبرمج الفيجوال بيسك ولكن على ما أظن أن الهاكرز 
والكراكز لن يستطيعوا برمجة أدواتهم على هذا الإصدار إلى أن يتم إنزال نظام حاوي على 
ملفات إل )هس ع "ه٣۴‏ وأدوات إضافية تسمح بتشغيل برامجنا الجميلة أظنها إلى بعد ٠٠٠٠‏ 
أي WindowsLon Horn‏ إن شاء اللہ۔ 

يعني أنا برمجنا ستبقى نزيهة إلا ذلك التاريخ أو بعده مع العلم أن بعضا ربما أو أكثر من ذلك 
يحبون العمل عl” .Win Me s Windwos98‏ 

لا أحبط الهمم فهذا الطريق الشائك لمبرمجين البيسك هم وحدهم القادرين على اجتيازه. 

ولكن ماذا أقدر أن أفعل في هذا الإصدار الجديد بما أنه متضمن برامج تخص تطبيقات 

افر نت قرف تيح فاع ارام من لرام الخدة وقر اغ الناتات مرورا ددرا 
خدمات للنظام وصفحات الإنترنت النشطة ونهاية بتطبيقات الموبایل و ۸8۲. 

سأقول لك أمران أن هذا الكتاب بداية لك وتحدي للغزاة الطامعين في إوقاعنا بعيدا عن 
تعليمات البيسك التي أحبها ٠‏ 


هل سأشرح لغة البرمجة كلها أم ماذا؟ 

بداية: 

I EC I Gy 
للجديد في مجال التوابع أي الدوال ولذلك علينا أيضا دعم كل ما يتعلق بها‎ 

ومن هنا عليك أن تكون متقن لما يلي حتى تفهم الكتاب حق الفهم؟ 


١-أنوع‏ المتغيرات(عددية ) 6 Short-Long-Intreger-Double-Sing1e-132-14‏ 
.)...Long=1n64 byte‏ أو نصیية )String- Char)‏ أو تاریخ (ع0at)‏ أو کائنیه (†ءeزا0)‏ 


Private ,Dim, Public , Friend ,Protected, ) حıرصتلا الفرق بين تعليمات‎ 
w(Declare 


۳- تشكيل المصفوفات البدائية ذات البعد الواحد وكيفية عملها لأن الخوض في حماها يكون أمر 
شاق ولا نبغي الإطالة وإذا كنت من الذين لا يريدون أن يعرفوا شيء فيها. 
سأجيبك بلغة (بدائية)شرح 
عندما ترى بجانب المتغير أثناء تعريفه قوسین فاعلم أنه مصفوفة وإذا وجدت في داخله عدد 
فانه يمثل عددها وإذا وجدت بداخله عددين يفصل بينهما فاصل فاإنهما ينتميان الى مصفوفة 
ثنائية وهكذا دون توقف إلى ٠١‏ وأكثر من ذلك 
وسوف يمر معنا مصفوفة ببعدين فقط في هذا الكتاب في دالة وحيدة في دوال التفاعل 
Dim F ()‏ 
Dim T ()‏ 
Dim H(, ,)‏ 
-٤‏ الفرق بين أماكن التصريح وكيفية إحضار ذلك التابع سواء من ماu‏ لهأو من ويهإاC‏ 
أو غير ذلك. 
٥‏ تکوين التراكيب من Structures E1 U jıع yi‏ 
وإذا لم تكن قد سمعت بهم أو سمعت ولكن لم تعرف يهما أما الأولى فلأهميتها شأن.. 
ربما تقول ما فائدتها في تشكيل التابع سأجيبك عليها بعد التعرف على شكل تشكيل التابع 


الدوال أو التوابع البرمجية 


(الدوال أو التوابع) وهي قصاصات برمجية يتم ضمنها تعريف متغيرات وقيام بعمليات متنوعة 
حسب نوعها. 

بدل أن تزيد أكوادك وتصرف مهارتك على شيء موجود أصلا كثير من يقول أنها تقلل من 
شأن المبرمج من قال لك 

يا أخي لا تكن مثل أصحاب لغة السي وإصداراتها متحجر تريد أن تفعل كل شيء بيدك لا بل 
ولكن ماذا ولو أننا مثل حساب تابع قوة لقوة خطر ببالنا مباشرة ^ أو أن نكتب الثابت ل أ۴ 
حتى في كل مرة نريده قمنا بفتح الآلة الحاسبة لإحضاره ولكن(خاصة لطلاب الدراسة) والذي 
فأصبحت دوال البيسك لتشمل القيم العامة من اللوغاريتم بالنسبة لأي قيمة ونهاية بمقلوب نسب 
الزوايا ومنها تتحول نحو لغة تعليمة خاصة بالمسائل التعليمية مع زيادة في مجالات الأخرى 


ميزات الدوال فى الإصدار الجديد؟ 

١-تنوعها‏ وشمولیتها؟ 

افر ها على الت ؟ 

٤‏ فهرستها وتنظيمها(أصناف رئيسية مثل "الصنف طاه" وغيره)؟ 

٥-طريفة‏ كتابتها البرمجية متمیزة(ستجده فعلا هذه النتائج في حال كان القيمة "لانهاية كما تعلم 
أفضل من الطوفان" )؟ 

كل دالة هي كائن نستطيع القيام بمجمو عة كبيرة من العمليات علیه؟ 


تشكيل التوابع وتركيبها 


تكمن أهمية معظم اللغات البرمجية من آلية تشكيل دوالها أو إجراءاتها فكلنا يعلم أن الأشياء 
الأبرز ظهورا في لغتنا ... 


الأحداث Events‏ 
الخصائص Properties‏ 
المناهج Methods‏ 
التوابع Function‏ 
الادوات والنوافذ Tools‏ 


تعليمات أساسية Statement‏ 


وعلى هذه الأشياء قائمة اللغة بشكلها العام وأن هذه الأغر اض متداخلة يبعضها البعض 
من حيث الشكل والمضمون.(أعلم أنها كلها من شيء آي الإجمالي سيذهب إلى لغة برمجة) 


ولعلي اقتصرت عليها من الناحية التعددية ولكن أشكال التوابع سوف تأخذ صورة التوابع أي 
أن الأحداث والخصائص والمناهج والتوابع هي كلها يمكن أن تندرج تحت إطار التوابع )) وهذا 
الكلام من وجهت نظري لم يقر به أحد. [ 

ولكن ستبقى آلية تفضيل بين( التوابع التي ستقوم أنت بتصميمها وبين التوابع الأصلية في 
اللغة) 

ستبقى توابعك والتوابع الجاهزة في سوية من المقدرة مادام العمليات مقتصرة على أوامر 
رياضية و تنسيقات نصية ولكن تصبح دوالك غير منطقية في حال الطلب من المكتبات 
الإضافية لماذا؟ 

فحسب أي مدعومة بشروحها لكن من الأفضل لنا كمبرمجين أن تضيف لنا ما يسمى شيئان هما 
الوصف والاختيار أي من هرمية تشكيل التوابع أن تضيف شيء اسمھ إل)nہDescriptio(‏ 


Function Get User (By Val m as long) Des="مpدختunll "هذا التابع يستخلص اسم‎ 


فیظهر لنا في شریط ٥٥1 ٣p 1٥×‏ 
هذا التابعح يستخلص اسم المستخدم 


ليس كان أجمل ولكن ربما سيدرسون الفكرة في مستقبلهم التجاري ؟ 


یمود ذا التابع باسح الدستخدم قط دزن إسكانيا تغيز »ا 


بناء التوابع 


الشكل البسيط: 
إن الشكل الرئيسي لتشكيل التابع هو الإعلان عنه بالتعليمة 

Function (Statement) 
امن ۴هي التي تسمح لنا بكتابته وبعده نضيف اسم التابع‎ ٥۸ حيث کلمة‎ 


Function golill_مwl()‎ 
اوامر“‎ 

أوامر' 

End Function 


في حال كان شكله كالسابق سيكون أقرب ليكون إجراء اا8 فكما تعلم نحن نشكل الإجراء 
بالشكل 
()اسم الإجراء Sub‏ 
”هذا هو الإجراء الأول Msgbox‏ 
End Sub‏ 
ولكنهم فرقوا بين الإجراء والتابع بأن التابع ٣0ں‏ ۴ يستطيع أخذ نوع معين وإجراء عليه 
العمليات بهذا الشكل أي يقبل العمليات عليه فهو يعرف على أنه متغير 
Function FunName () As String‏ 
" السلام علیکم ورحمت الله وبرکاته"=ع N4‏ ہںF۴‏ 
End Function‏ 


الحصول على قيم التابع؛ 
Textbok.Text =FunctionName‏ 
سيقول سائل لماذا تخلط بين الإجراء Function gبlتlاو Sub‏ 
نعم إن الشكلين يستطيعا الوصول انتيجة واحدة ولكن الثانية توفر من حجم المتغيرات وترتيبها 
واستخدامها أسهل نعم ما عليك معرفته لهذه المرحلة هو كيفية تشكيل التابع بمثاله الأخير مع أخذ 
بعين الاعتبار كيفية إدراج القيم الصحيحة إليه 
والآن سنتجه إلى الشكل الجميل وذلك بإدراج الوسطاء إليه سنبدأ بمثال: 
ھل دا قرش ممت ادل من الكل الا رحا اة ااا 
فكلنا يعلم أن لمعادلة الدلتا ثلاث وسطاء ١(‏ و ب وج) 
اس٣۲‏ ا شن ۳ E‏ 
A‏ سب ٤-۲۹‏ ۱ ج 
ولو أردنا أن نصنع تابع لحله ليس من المعقول أن نخرج أن نجعل المبرمج كمستخدم باستخدام 
أدوات |لإدخJI Input Box‏ 
بالتأكيد نريد حساب جذر الدلتا 
Function Delta(By Val A As Long , By Val B As Long ,By Val C As‏ 
lon As Long‏ 


Dalta=Math.Pow(B,2)-4*A*C 
End Function 

طبعا إن عملية استدعاء هذا التابع ستكون 
Call Dalta(10,5,2‏ 


ذلك التابع: 

إن ال اتك مر قط وق خر ار زات تر لن تشع مكرود فك جن لوان في العم 
وتقول تفضل هذه تفيدك ولكن هي تنتقي الأصعب والأكثر شهرة . 

ولكن كثير من التوابع لا تتأقلم معنا ولكن يعني لو جميع العلاقات الرياضية في العالم مرتكزة 
قى الات الخسهة الأ روت طا مطل ذلك فته ف كا فا ان ترد إل ل 
فتم إضافة ما يسمى اللوغاريتم والجذور وهلم جرى من التوابع للوصول للحساب المساحات 
ركن تكسن أهمية التراع من جيت الية التنسق فتلا 

سأوضح هنا بعض الفر وقات. 

فلنأخذ برنامج الفلاش بعد الإصدار السادس ولغة الفيجوال النت 

-لوجدت الفلاش يدعم الأدوات كما في الفيجوال وٳذا قلبت في دواله لوجدت آنه يحوي نفس 
دوال النت في صنف الرياضيات ونفس الدوال في الصنف السلاسل النصية 

--يجب أن يصبح مفهوم البرمجة جديد أي أدركت مايكروسوفت هذا المعنى 


ولكن أود أن أوضح أن كثير من دوال البرمجية مخفية عن التعرف فمن هذا الذي يود أن يغوص 
في ثنايا أل 1ه ليجد مثال بسيط وشامل لعمل ذلك التابع بالشكل الذي أرجو أن يصل إلى 
الغاية بأقصر طريق 


لعل أهم الأشياء في تشكيل التابع هو أنه تم إضافة المزيد من التعليمات الأساسية أي قاموا بإلغاء 
تعليمات أساسية كتعليمة فتح الملفات و تغير أسمائها ولعلك تلاحظ أن اللغة بدأت ترتيب تصميمي 
أي إن كل التعليمات التي ستكون مدعومة هي تشكيل التوابع بها ومادون ذلك فهي كما نوهنا إليه 


الشكل المتعدد 
ليس لكل قانون وسائط نوجد قيمته من خلاله قيمة فمثلا حساب مساحة المستطيل . 
سط = قيمة = عمليات على الوسائط(التي سنستخدمها للوصول إلى مساحته) 
ومنه كان الأفضل لهذه اللغة أن تقدم ذلك أيضا كي يسهل على المستخدم فهم ذلك التابع 
واستخدامه ومن هنا نستطيع كتابة الشكل المتعدد 
المستطيل مساحة Function‏ 


ولكن علينا أحيانا أنه نوجد وسطاء ليس من الضروري استخدامها أي نستطيع تجاهلها بالانتقال 

إلى الوسيط الآخر فمثلا تابع بوسطاء لم تدخل وسطائه كاملة فلن يسمح لك المترجم أن تنفذه حتى 

تصححه ومع هذا وذاك يتطلب حل هذه الأزمة في حال أن المستخدم لم يكتب الوسيط 
FunctiorfDF(A ..................‏ 


خطا لان لم فستكمل الوسطاء مكل كامل > ن 1117© 


بداية سأذهب إلى التالي فعلى سبيل المثال تذكر معي عبارة الإسناد التالية 
Dim Fname As String = "nameuswr"‏ 

إنها من الجديد التي جاءت به مايكروسوفت وهو اختصار أن تستخدم في برامجك 
وأيضا المبرمجين كانوا قد قدموا عبارة 

)"nanد"=String FunctiorFG (Optional ByVal Fname As‏ 
هنا حلت المشكلة التي ذكرتها حيث أنه إذا لم يدخل المبرمج الوسيط سيأخذ القيمة الافتراضية 
التي مررت إليه مباشرة وهي "محمد" ومن هنا سنتجنب الأخطاء الكثيرة التي لانريد أن نقع بها 
حيث تعليمة pina‏ 0هي التي حلت المشكلة للقيم الافتراضية. 
ومن هناضع هذه القيمة في حال تخشى إدخالات المستخدم المزعجة أحيانا 
ملاحظة: أعرفت لماذا غيرت طريقة الإسناد وأضاف عليها إسناد القيم مباشرة 


لا يوجد خطأ“ )( Cal] FG‏ 
لقد تم جعل المحرر يمرر الوسطاء بالقيمة مباشرة(۷1 ر8]) وإذا أحببت أن تجعلها بالمؤشر 
فعليك أن تغيرها بنفسك لان تم على بشكل ملحوظ تحسين التمرير بالقيمة في قيم الإعداد الكبيرة 
الجديد في تشكيل التوابع والإضافات 


ilتفأيnة (Return)‏ 
لقد قدم لنا المبرمجون والمبرمجات في لغتنا الحبيبة تعليمة (العودة) للقيمة وليس حق العودة 
لفلسطينيين فهم كرماء معنا في الإصدار السابق كان هناك شيء عير مهوم بكتاة القاتع فف 
FunctiorfLname( ByVal NumberName As Short) As String‏ 
If NumberName=1 Then‏ 
"مستحیل"= )ع112 
Else‏ 
"غير مقبول"= )ع۸2۳ 
End If‏ 
End Function‏ 
فلو رجعت لذلك المثال لوجت هل من المعقول أن نكتب التابع ولا نمرر له وسيطه طبعا هذا 
الاستعمال فقط داخل التابع ولم يتم إلغاءه ولكن تم المجيء بالتعليمة ٠إ ۸٠‏ بالعودة بقيمة وهي 
تستخدم بالتوابع فقط على ما أظن أي لم أرها استعملت بغير ها وفائدتها الاختصار وإزالت اللبس 
عن ذلك من وجهت نظري على الأقل وهكذا يصبح شكل التابع السابق على الشكل التالي: 


FunctiorfLname( ByVal NumberName As Short) As String 
If NumberName=1 Then 

Return "Jيzتun"‎ 
Else 

غیر مقبول "۸إ ں Re‏ 
End If‏ 

End Function 


TF 


آي في حال وجدت هذه التعليمة وورائها قيمة معينة ستمرر مباشرة وتصبح هذه القيمة هي قيمة 
ال 


ملاحظة هامة: إن بعض المبرمجين صرح على أن هذه التعليمة جاءت لاختصار ولكن قلت 
اتقات فق أن كر ها 


كثيرا ما لاحظت وأنت تستخدم الدوال الجاهزة ذات الوسطاء ترى أن العديد منها تحوي على قيم 
ثابتة تبعد اللبس في الإدخال فلذلك نستخدم التركيب ( ا" ع) حيث نستطيع من خلالها بناء 
مجموعة من القيم التي قد تكون من الممكن أن تعتبرها من الثوابت وهي من النوع ع"ه.] وإليك 
مثال على استخدامها أي أنت من خلالها تقوم ببناء العديد من المركبات ذات القيم المناسبة 
Enum Fname‏ 
Fat16‏ 
Fat32‏ 
Ntfs=64‏ 
End Enum‏ 


FunctioRecod (ByVal Fname AFname) As String 
Select Case Fname 
CasfFat 16 
MsgBox "ميدقلl "نظام‎ 


End Select 
End Function 


دمج التوابع في المناهج 
عد بالذاكرة إلى التركيب من نوع إموءل وهي التعليمة مرآ التي هي عبارة عن مجموعة 
تراكيب من أي نوع كان من البيانات وكانت عبارة عن فرق الترکیبات ہں ,۴ عن مرآ هو 
أنه النوع ype‏ يدعم کل أنواع البيانات وأما Eunm‏ هي فقط من النوع Long‏ . 
Private Type FG‏ 
DAs Long‏ 
F As String‏ 
End Type‏ 
ستقول لي ما هذا الكلام الجديد.... سأقول للمبتدى في الإصدار الجديد الكلام في الأسطر 
الا 
لا تلزمك واقر مادون والسبب لأنه لقد ألغى و استبدلوا المبرمجين التعليمة السابقة في الإصدار 
الجديد بنوع آخر أشبه بما يسمى الصنف أو البناء وهو Stu]‏ 
وهذا التعليمة بديلة عن مم رآ ولكن بتغيرات بسيطة بإضافة تعليمة الإسناد 
Enum country‏ 


المغرب_العربي 


End Enum 
Public Structure CollUser 

Const UserName=" NewPerson" 

Dim Name As String 

Dim ega As Short 

Dim name2 As String 

Dim yourcountry As Country 

هنا خطأً لأنه منوع إدخال القيمة للمتغير ضlin ‘Dim f as short=50‏ 
End Structure‏ 


استدعاء القيم منه والإسناد 
Dim CallCollUser As CollUser‏ 
"nحnد"=CalICo11User.Name‏ 
CallColl]User.Ega=60‏ 
llڎlم.Yourcountry=Country CallCollUser.‏ 
MsgBox CallCollUser.UserName‏ 
والمزيد ستراه يمكنك أيضا إضافة التوابع ضمن الصنف نفسه وهذه الميزة من إحدى 
الميزات الهامة التي تجعل هذه التعليمة الأساسية أشبه بأن يكون صنف. 
Public Structure CollUser‏ 


FunctiorfBhowMyBox 0 As String 
Dim NameS As String 


End Function 


End Structure 


Conversion 


لقد تم تصغير هذا الصنف لدوال التحويل الخاصة بالأعداد وتم نقل التوابع الأخرى لصنف آخر 
وتم الاحتفاظ على ۷ دوال قابلة لزيادة وسنشرحها حتى يتثنى لنا الانتقال إلى صنف 


(ErrorToStrin] lll 


هذه الدالة بدJ‏ انئدllة Error‏ ڍڪ Error§‏ في الإصدار القديم ولكن هذه دالة ترجع وصف 
الخاص برقم الخطاً أي ترجع رسالة الخطأ النصية لرقم الخطأ المتوقع أي أثناء كتابتك برنامج 
معين وقمت بوضع حلول لمعظم الأخطاء المتوقعة و لكن حتى ليحدث خطأً لا نستطیع تحدیده 
يرجع رسالة الخطأ الخاصة به (مثل sعuطاء5)‏ 
ونلخصه بالتالی : 
إن جل أرقام الرسائل ٠‏ إلى مجال( القيم العددية) تعود بوصف خاص فمثلا وصف الخطأ ذي 
الرقم٠“‏ "تخبرنا بخطاً برقم السجل" 
أي كل رقم له وصف خاص ومن هنا يمكنا كتابة سجلات أخطاء لبرامجنا وفي حال أخبرك 
المستخدم على أن برنامجك يحوي أخطاء أخذت سجل الأخطاء وراجعت أرقامها ومن ثم 
طورت برنامجك وتمنع حدوث متل هذه الأخطاء 
دا فل تیر ك كن ار سال الكن كو ةا : 

1istB 0×1‏ 1ا اضف أداة قائمة العها' 
Dim s As Integer‏ 


FOE § = 1 TS 5000 
ListBox1l1.Items.AQdd (ErrorToString (s).ToString + s.tostring) 


Next 
)٣ز( الدالة‎ 


في معظم الأحيان تحبذ لو دور العدد العشري إلى العدد الطبيعي دون تقريب أي 
العدد(۹,٤٠٥)لانريد‏ تقريبه متلا ليصبح )٥٠١(‏ فتقوم هذه الدالة بنزع الفاصلة وما يليها مهما 
كانت القيمة سالبة موجبة وأي نوع من البيانات كان المتغير بالكلام العام. 


وهذا متال عليها: 
DimXAs Integer‏ 
X=14*Rnd ()‏ 
X =Conversion.Fix {X]JOutput-X‏ 
MsgboxXX)‏ 
الداله (Hex)‏ 


جاء دور الحديث عن دوال التحويل من أنظمة العدد العشرية إلى أنظمة العد الست عشري 


كما نعلم في معظم محررات البرامج(الكر اكر) تخرج لنا المحررات البايتات المأخوذة من 
الملف بصيغتين ست عشرية وأخرى بشيفرة ال۸5©11 المقابل لها فأما الست عشري فهي 
خاصة بمن يفهم لغة الأسمبلي ومشابه فيعرفون مكان المقطع أو المكدس 
طبعا نظام الست عشري يبداً: 
123456789ABCDEF‏ 
وطبعا العدد الذي يجب علينا تحويله يجب أن يكون أولا طبيعي(وليسى سالبا) وأقصى حد أن 
یکون من النوع ع و0 [ 
وكي تحفظ متغير بقيمة ست عشرية استخدم البادئة(3&) ومن ثم أضف العدد الذي تريد 
فتلقائيا تحوله اللغة إلى قسمة عشرية في حال الاستعمال ولكن عندما نحوله إلى ست عشري 
فإعلم أنه يتحول إلى قيمة نصية حتما ‏ 
DimXAs Long= &HEFF‏ 
(لمنا تلقائيا حولته اللغة إلى النظام العشرل & ×»00ط59ك1 
هنا حولته اللغة إd‏ lاilضزظlم"‏ & MsgboxXConversion. Hex (X)‏ 
('"الست عشري 
هنا خطأً نوع المتغيرات إذ أنه تحولJ‏ إdJ 'x€eonversion. HexXx)‏ 
نوع بيانات آخر 


الدالة (٤ء0)‏ 


طبعا من الأنظمة المشهورة أيضا يوجد النظام الثماني أي نبدأً العد من ١‏ إلى ۸ فقط 
إذ تحول من النظام العشري إلى النظام الثماني ولكن لا نحتاج للعكس وكي نحفظ متغير بقيمة 
ست عشرية نستخدم البادئة (0&) ومن تم ندون العدد 


DimXAs Long=&O05252 

(للنا تلقائيا حولته اللغة إلى النظام العشري & ×) ×S3980ئM‏ 
هنا حولته اللغة إd‏ lاilظضظlم"‏ & MsgBox (Conversion. OcCt (X)‏ 
('"العد الثماني 

هنا خطظا نوع اللتغراآت إة اتةه ترل 'X= 0676 £5105.065)&( d1]‏ 
نوع بيانات آخر 


الدالة 54) 


تقوم هذه الدالة بعملية تحويل الأعداد من النوع ٥زط0‏ إلى قيمة نصية أما فائدتها الجوهرية 
نستخدمها في قواعد البيانات إذا أردنا أن نحول عمر الشخص إلى قيمة نصية ونضيفها إلى 
قواعد البيانات ولکن نlفذة Format‏ 
CormpareTo‏ 2 
Eas‏ چا 
GEHashlEode‏ 2 
a GEtTppe‏ 
a GET ppelode‏ 
MarYalue‏ # 
Minvalue‏ # 
ay Parse‏ 
E‏ 2 


Hsq{Eox 5| 


0 ۲ 
على المتغيرات قدمت لنا الأمر ماع5 ولكن هذه الدالة موجودة على كل حال والفرق عن 
0Stringآ‏ أنها لا تحول إلا الأعداد ولا تقبل بارامترات (وسطاء ) من أنواع غير الأعداد 


MsgBoX#ConversionSt€851455.5¥) 'Output851455.52 
'MsgBox (Conversion. Str (851455.52) ) 'OutputJa* Îطخ‎ 


الدالة (د۷) 


وهي من الدوال الشائعة الاستعمال فأحد استخداماتها أنها تمنع حدوث أخطاء أثناء إدخال 
البيانات 


MsgBok& Conversion.Val("S5f4§f ")) 'output 5 


۲١ 


دوالالمواد 
Global‏ 


بعيدا عن التعليمة 1ه اها التي كانت مدعومة في الإإصدارات ما قبل الإصدار السادس وعندما 
جاء الإصدار السادس حيث كانت تستخدم مع دوال أل ۸۴1 وتجعل التابع عام يرى في كل 
مكان متل التعليمة ٥1ااں۴‏ ومن تم تحولت في الإصدار السادس إلى صنف شامل لكل الموارد 
الخاصة باللغة لكن لم تكن تعمل بشكل صحيح وكانت أحد الأخطاء الموجودة فيها 

ولكن في إصدار السابع المسمى( ).. 

أصبحت تعبر عن شيء مهم وهو أن باي لغة برمجية تم برمجته والإصدارات المتعلقة به(لعلها 
أول خطوة في İطؤطlر‏ اFrameWorkJ‏ ومع ذلك لم ي يتم دعم إلا بضع الدوال وهي نوع لغة 
السكريب المتبعة و إصدارها وسنشرحها وأحببت أن ا هذا الصنف رغم عدم أهميته 


(ScriptEngine) lll 


التعبير يصعب شرحه من ناحية الترجمة ولكن نستطيع أعطائه صورة وهو المترجم التي تم 
كتابة التعليمات النصية ضمنه من حيث التعليمات المكتوبة هل هي ءونجط۷ أو ۷ أو #€ 


MsgBox (Globals.ScriptEngine) "output Vb 


(ScriptEngineBuildVerison) lll 
(ScriptEngineMajorVerison) ذ4‎ 
(SeriptEngineMinorVerison) Alla 


تلك الدوال الثلاثة السابقة تعطي اصدار المترجم الذي تم كتابة التعليمات النصية ضمنه من 
حيث التعليمات المكتوبة وهو لا يتعلق بإصدارات برنامجك أي ثابتة بالنسبة لإصدار اللغة التي 
تمل انها 


MsgBox (Globals.ScriptEngine + " " & 
Globals.ScriptEngineMajorVersion & "." & 
Globals.ScriptEngineBuildVersion & "." & 
Globals.ScriptEnginMinorVersion) 


۲۲ 


ومن هذا الصنف فنحن أمام دوال ربما تعطينا عدد التوابع المستخدمة والتعليمات و القيمة 
اكب الراك ورا ترى المرب لن اء ال 

ما في الإصدار ۲٠٠٠‏ فلقد تحولت الصنف 1ه ط61 إلى الصنف الرئيسي للغة حيث أصبح هو 
ا ا ت و 


PFtivate Sub ForFml LoaAd(BFYal sender As System. Oh ject 
Global .| 


{} System 
{} wWindowsApplication 1 


حيث الأصناف الرئيسية (الجذر الرئيسي أصناف وموارد اللغة تندرج منها 


۳ 


الدوالالرباضية 
Math‏ 


تحت إطار العمل القديم أوجدت مايكروسوفت العديد من أماكن التي تستطيع من خلالها 

البدء في عمليات التطوير. 

مثال: تابع اللوغاريتم يحتاج لمجموعة منوعة من الأسطر لتحويله أساسه من العدد النيبري إلى 
العشري فماذا لو أردنا تحويله إلى أكثر من ذلك ولكن هنا قدمت مايكروسوفت حل تراه هي من 
وجهت نظهرها يكفي ولكن بقيت لغتنا العزيزة تعمل على خلفية نظيفة فصحيح عن قدراته 
الأمنية الخارقة والشبه المعقدة وأغراضها التوجهية ودعم الوراثة إلى أنها لم تكن إلا أداة تطوير 
تجارية من الناحية البرمجية فمثلا لا تنتظر من برنامج عمل المعجزات أي بيئة العمل في إطار 
العمل أشبه من عملية تجسس من خلالها على خصوصياتك أي لا تحلم أن تصنع آلة حاسبة 
وترید منها آن تعمل بشكل مباشر على نظام(ميلين يوم) بل على مستخدمها أن يدفع تقنيا أو عمليا 
بعمليات تنزيل ملفات إضافية تحتاج إليها 

سوف نقف عن التكلم عن أشياء لا تهم المبرمج ونبد بشيء اسمه ما هو الجديد في دوال هذا 
الصنف لو أردنا الكلام عنه لأنقصناه حقه فلقد إضافة ما فوق ٠١‏ تابع جديد وأجرت عمليات 
تغير إما اسمية أو تطبيقيا على بعض ما تبقى منها ولكن في صريح ذلك كله تبقى الإشارة 
لفروق واضحة في الإصدار الجديد وإن التعديل الهرمي على اللغة سيأتي أيضا على التوابع 
فمثلا لم نعد نرى علامات الدولار لمعظم التوابع التي اعتدنا على كتابتها في لغتنا السابقة 
وذلك لمعالجتها برمجيا بالأصل وهذه هي صورة هذا الشيء الجميل من ذلك الصنف الام 
لدوال الرياضيات 

ولكن بقيت أشياء لم تحافظ ميكروسوفت عليها من باب الترتيب وعدم الضياع بين مئات 
التعليمات فأوجدت شيء تجعها فيه كما في الإصدار القديم وهو الصنف الحاضن لها أي مثلا 
SS SGT‏ 


٤ 


أحببت أن أضيف هذه الصورة لعلها تفي بالغرض وإضافات للصنف أيضا ما يسمى ثوابت 
تتعلق به من الناحية العملية وإليك التفصيل 


البداية مع الثوابت التي تم إدراجها ضمن الصنف الجديد وهما ثابتان الأول 
الثابت (۲1) 
وهي القيمة التقريبية بين محيط الدائرة وقطرها ونرمز لها نحن م ونعرفها ۷/۲١‏ 
وهي ثابت فقط فبدل أن تكتب القيمة السطر 

Const Pi=32.14563665 [‏ 
وكما تعرفون دائما أن معظم المبرمجين لا يحفظون قيمة أ۴ أو أنهم بالأاصح يفتحون آلة 
لحاسبة بالجهاز ويحضرون القيمة الحقيقية فكانت هذه الدالة ضرورية وهم قاموا بإدراجه 

Math pi 


ات ® 

كثيرون من يجهلون ما هو العدد النيبري والكثير أيضا يعرفه . وكان في معظم الدراسات 
وهو يمثل القيمة العددية للعدد النيبري الذي لوغارتميه ٠=‏ 
هنا تم إنجاز الثوابت وننطلق نحو التوابع ونبدا 


الدالة (5ط4) 
تعيد القيمة المطلقة للقيمة الممرر إليها ومن أي نوع كان من البيانات الحسابية 
المثال: 
MsgBox(Math.Abs(-3.55655))‏ 


FunctionAbsNumber#yValnumberAs Doubl$As Double 
Ifnumber<O Then 
AbsNumber = number * 41) 
Else 
AbsNumber = number 
EGG ZE 
ENG FONCE LOR 


lدذ4‏ ) (Ceiling‏ 
وهي تعود بالحد الأقصى للقيمة المدخلة إليها. يعني تحول أي قيمة بعد الفاصلة ماعدا الصفر 
إلى رقم تضيفه على رقم آحادها وعند القيمة أصغر من الصفر تحولها إلى أصغر قيمة قريبة 

يعني تلغي الفاصلة فحسب وهي من الجديد المضاف. 


MsgBoXMathCeiling39.0) 


الداlة (Floor)‏ 
وتعوة تاشر قا لالز وال فل اء فاا را متها أى عن ساها 


تفيد هي والتي قبلها في بعض المعادلات الرياضية 
مثال : 


MsgBoXMathFloof10.1) 
هاتان الدالتان تفيدان في حساب بعض أنواع الارتياب و بعض علاقات الرياضيات‎ 


الدالة )٥0w(‏ 
هذه الدالة تعود بأس أساس أي رفع القوة وهذه طريقة استعماله ستقول لي لماذا أضافت 
المبرمجين هذه الدالة حتى يهسهل عليهم حساب الجذر النوني أي أ٠‏ من أي مرتبة لأن مصطلح 
Power‏ هو مصطلح شائع في اللغات الأخرى 
وهذه مثال عليه. 

MsgBoXMathPoOW1919] 100000000000‏ 
ويمكن القول أنها تشبه هذا الرمز (^) 


الداله ( ٤ا٩S)‏ 
الدالة > جديدة فقط اسميا آي هي نفس الدالة ٣٩؟‏ 
و التي ولدت مع لغة البيسك و وهذه الدالة موجودة في كل الإصدارات وظيفتها إيجاد الجذر 
التربيعي للقيمة من نو ععاub‌مD‏ 
ولها وتأخذ الشكل التالي 

Sqrt (Number As Double) AS Double 
وطبعا يعني قبل جميع القيم التي تراوح فقط في المجال الموجب لأن الجذر التربيعي لعدد‎ 
سالب مستحيل و هذا المجال‎ 
t,1. 1oTEoAE11 £۷ 86+324 


وهذا مثال يوضح ذلك 


Priva SubForh LoadByValsenderAsSystem. Object, 
ByValeAsSystem.EventArgs) Handles MyBaseLoad 
الكود'‎ 


MsgBoXMathSqrt{9) ) 'output3 
BEQ. Sb 


(Sign ) ادال‎ 


۲٣ 


الدالة جديدة فقط اسميا أي هي نفس الدالة Sgn‏ 
وهذا التابع أيضا من التوابع القديمة التي نشأت مع البيسك وهو يعيد إشارة العدد الممرر له على 
شكل قيم . فإذا كان إشارة العدد سالب يعيد العدد - ١و‏ إذا كانت إشارة العدد موجب (يعني بدون 
إشارة) يعيد العدد ١‏ وإذا كان العدد يساوي الصفر عنده يعيد الصفر وأحد أماكن استخدام هذا 
التابح هو حساب الدلتا لمعادلة من الدرجة الثانية 
Private SubForh LoadByValsenderAsSystem. Object,‏ 
ByValeAsSystem.EventArgs) Handles MyBaseload‏ 
MsgBoXMathSigRf5S 622) 'Output1l‏ 
MsgBox (Math.Sign{330) 'Output-1‏ 
MsgBox (Math. SORO) ) 'OutputO‏ 


ERO Sub 


الدالة ( و0ا) 
وهذه الدالة تعيد اللغاريتم الطبيعيي لعدد بالنسبة للأساس العدد النيبري وليس العشري كما هو 
الحال في الآلة الحاسبة وسوف أضيف التابع الإضافي لحصول على لغاريتم العدد للأساس 
١التي‏ أدخلته مايكروسوفت بإصدار ها الجديدوكما نعلم فيجب على العدد الذي إدخل لها أن يكون 
أكبر من الصفر وإلا رسالة الخطاً سوف تظهر لك طبعا تعرف لماذا لأر ن مجال تعريف التابع 
اللغاريتمي منطلقه(ح+*) ومستقره (ح) وهذا مثال يوضح عمل هذا الدالة 
KS RS SS SUCRE SSS a‏ 
لاي اساس دون أي جهد طبعا كلامنا السابق صحيح إذا لم ندخل أي من البارمترات وهذا شکل 
التابع الجديد 

MathLogfD as double ,newbase as double 


ومن هنا نجد أنه من السهل معرفة المقصود وهذا مثال يوضح الغرض بشكل بسيط 


MsgBox Mathlog10, 0) 


)L0‡0 ( الدالة‎ 


هذه الدالة إن دلت دلت على شيء إسمه السرعة فهي من الناحية العملية إختصار إلى الدالة 
السابقة ممرر إليها أساس العشري ولكن لا أدري لماذا قامو بوضعها أتوقع أنها قامو بوضعها 
قبل سابقتاها ومن ثم قاموا ببرمجة سابقتها وتركوها 
وهذا متال يدل عليها: 

MsgBox MathLogQ1D 


(Exp ) الدالة‎ 


وهذه الدالة أيضا قيمة مثل سابقتها وتقوم بإرجاع العذد الطبيعي للعدد الذيبري مرفوع إلى قوة 
وهذا التابع 


۷ 


مكمل لتابع الذي قبله وفي بعض الأحيان يسمى في تابع عكس لتابع اللغارتيمي ومع العلم أنه 
لايقبل قيمة كبر من ۷٠۰۹,۷۸۲۷٠۲۸۹۳‏ وإلا فرسالة الطوافان سوف تظهر لك ولكن في 
المبرمجين في شركة مايكروسوفت كشفوا الأمر وإستبدلوا رسالة الطوفان بشيء إسمه اللانهاية 
ال 


MsgBoOXMatRExR§ 780, MsgBoxStyleOKOnly"") 


(Round ) llدd‎ 


أما هذه الدالة فهي جديدة على البيسك و وحتى على الإصدارات التي سبقت الإصدار السادس 
وظيفتها مفيدة ولكن يجب أن نتعرف على شكلها 


Round (Number, NumDiditsAfterDecimal) 


حيث القسم الأول يمتثل عدد ما يحوي فاصلة بعدها عدة أرقام فتقوم هذه الدالة بإظهار عدد 
الأرقام(القسم الثاتي الذي يمثل عدد هذه الأرقام) التي يجب أن تظهر بعد الفاصلة وكما نعلم 
فإنها شبيهة بدوال إخرى ولكن تقوم بوظيفة مغايرةومع العلم أن أهميتها كبيرة في حساب بعض 
القوانين الفيزيائية و بشكل خاص .حيث تفيد في تقريب الاأعداد وإذا قمنا في حذف الوسيط 
الثاني فتقوم بدورة التقريب الأعداد بعد الفاصلة (أكبر من ٠‏ تضيف ١‏ للعدد الذي يليه على 
یساره والا تقوم بحذفه): 


Private SubForh LoadByValsenderAsSystem. Object, 
ByValeAsSystem.EventArgs) Handles MyBaseLoad 
MsgBox (Math. Roud{56. 656262693) ) 'OutPut- 


56:656 
MsgBoXMathRound155. )ل‎ 'OutPut156 
MsgBoXMathRound155. 8B) 'OutPut156 
MsSgGBEOXMatRRound1 593) ) 'OutPutl55 
ENG. SUB 


(Min „, Max ) الدال‎ 


هنا جاء نوع المقارنة وهذه الدالتان من الجديد الذي تم إضافته في الإصدار الجديد وهذان 
الدالتان نفس الاستخدام ولكن تأتي بنتيجة معاكسة للأخرى 

المهم أنهما تقومان بعمليات المقارنة بين متغيران من النوع نفسه( بزمرة المتغيرات العددية) 
وتعيد الدالة (مM1‏ ) القيمة الصغرى بين المتغيران ١‏ وأما الثانية تعيد القيمة الكبرى من 
العددين . 

المتال: 


۲۸ 


Private SubForh LoadByValsenderAsSystem. Object, 
ByValeAsSystem.EventArgs) Handles MyBaselLoad 
DimNumbefr As Long=1000 
Dim number2 As Long = 2005 
MsgBox (Math .Max (Numberl, number2)) 'output 2005 
MsgBox (Math .Min (Numberl, number2)) 'output 1000 


Ed Süb 
([EEERemainder) 4li 
أي ترجع الباقي من‎ 0٩١ [ وهذه الدالة جديدة أيضا فهي تحل محل التعليمة الأساسية‎ 
فهذه الدالة تقوم بعملية القسمة‎ ۳,۳۳۳٠٠ ۳ + ٠۰ قرب قيمة لحاصل قسمة عددين أي‎ 
لاقرب عدد طبيعي ولیس صحيح وترجع الباقي آي += + الباقي ۱ أي القيمة التي‎ 
١ ستعود بها هي‎ 
وشكل التابع كالتالي‎ 


Math. IEEERemainder (Xas double yas doubl® 
هما وها القاسم والمقسوم عليه‎ × , ١, العددان‎ 
وهذدا متال‎ 


MsgBoX10 Mod 3) 'otputl 
MsgBoXMathIEEERemaindef193)) 'outputl 


(Sin, Cos, Tan) Jاودلا‎ 

جاء الدور للحديث عن دوال النسب المثلثية الشهيرة. 

وجميع هذه الدوال هي دوال لحساب النسب المتلية (الجيب .التجيب .الظل .) على الترتيب وقد 
إضافة ميكروسوفت في الفيجوال بيسك ۷ توابع إضافية أخرى. 

ولكن هذه النسب في الفيجوال بيسك تستخدم نظام الراديان وكما نعلم أنه يوجد أنظمة عديدة من 
أشهرها(الراديان,الدرخات,الغراد) ون أن قان القطاع الزاوى للفطة المستقدة قاطا فى 
الأنظمة الثلاثة (۹۲۹۰۳۰۸۹۷۹٥۱٠۱٤۱۸۰_۳,۱_١٠۲)على‏ الترتيب. 

طبعا لا يغيب عن ذهنكم أنها توابع تساعد في حل المسائل الرياضية إذ تستخدم في معظم 
القوانين الفيزيائية والرياضية وبإذن الله سوف أضيف التوابع الإخرى المصممة شخصيا والت 
أدخلتها مايكروسوفت في إصدارها الأخير.وإليكم هذا المثال من أجل تحويل بين الزوايا 

مع العلم أن هناك دوال لا تعطي المرجو منها في كل مرة وقد خسنت أدائها في الإصدار الجديد 


Private Subscn () 

Const De=180 
MsgBoXMathCo¢$PI/De*69) 'output0. 50000001 
Os 7OTLIOGTSLLS6S4 75 

MsgBox (MathTafPI1/De*45) ' ١ تقروبا‎ 
MsgBox (MathSirfP1I/De*30) '0,5 


EN SUB 


الدالة (و۸) 
الدالة (رزA)‏ 
لدالة (۸۵) 


۲۹ 


فهذه الدوال جدیدها مفيد ومن وین تزيد سمعنا بأن لكل زاوية جيب وتجيب وظل وتظل 
ولكن ان لكل (جيب) زاوية ولكل( تجيب) زاوية. 

كل له ف اا فسوف يخرج لك قيمة الزاوية وطبعا جميع القيم هي في الراديان 
فكما تعلم أن جميع القيم في جميع الأنظمة هي واحدة فمثلا قيمة التجيب ل٥,٠هي‏ لزاوية ٠١‏ 
و ۰ ۴ء ءم,* رادیان ولکن كما نعلم فجمیع القیم 
هي بالراديان فلا فعليك إذا صناعة تابع لهذه المهمة راجع كيفية تشكيل التوابع 


FunctionDeAngl@¢ByValAngleAs DecimalAs Long 
DeAngle= {80*AnglèB / NatkhPI 
ERG FURNCETLGR 
MsgBoXDeAngl¢MathAsiRO.§5))'37 
MsgBox (DeAngle (Math.Acos+{0.5))'120 
يعني الأمر ليس معقد فالأمور بسيطة ويلزم هذا التابع في كثير من معادلات الرياضيات أو‎ 
الفيزيائية مثل( محولة أحادية الطور)‎ 


ونفس الأمر لما تبقى من التوابع ه۸ يرجع قيمة زاوية بعد إدخال ظل تلك الزاوية ومن هنا 
يمكنك حساب تلك القيم وحساب قيمة التظل لزاوية فهي تساوي مقلوب الظل أو التجيب /الجيب 
تظل(یه)=۱/ظل(یه) أو تجب(یه)/جب(یه) 


الدالة (طوه١)‏ 
الدالة (Sin)‏ 
الدالة )ط (Tan‏ 


في البداية تراجعت عن كتابة هذا الدوال خشية أن أخوض بما ليس لي علم فسألت أحد الاخوة 
عن المعنى العلمي لها :هذه تفيد في بعض العمليات الحسابية والفيزيائية وهي من العلاقة 


الزاوية- الزاوية 
)e - e)/ 2‏ =(الزاوية(Sinh‏ 
ويسمى الجيب القطعي 
الزاوية- الزاوية 


)e + e(/ 2‏ =( الزاویة) Cos‏ 
ويسمى الجيب القطعي 
أا الظل الق 
(الزاوية)٣sهع‏ /(الزاوية) S٣‏ =(الزاوية) ٠2٣۴٣‏ 


والتظل القطعي مقلوب الظل القطعي 


Dm fAs Double 

f= NathPowMathE, 2) - Math. Pow (Math.E,-2)) /2 
MsgBox (f) 
MsgBoXMathSinR2) ) 


ملاحظة: 

صحيح آنه يوجد كثير من التوابع التي يمكنك إضافتها متل تابع التظل والمتمم 
والقاطع معتمدا على توابع الموجودة فتابع التظل هو مقلوب تابع الظل 
ويمكنك إضافة ما يسمي الجذر النونى كما شرحنا وكير من العلاقات التي تمكنك 
من إضافتها في مكتبة أو ترسلها إلى فريق تطوير اللغة ليتم إرفاقها في إصدارات 


۲٠٠٠١ أما دوال الإصدار‎ 
(Big Mul) ll 


تقوم بحاصل الضرب بین عددین ا, ۸ من النوع 1,32 وتعطي كامل الأرقام من النوع 
Long‏ 


Dim n1 As Integer=InB2MaxValue 

Dim n2 As Integer=InB2MaxValue 
DimMaxNumberAs LORnG 

MaxNumber = Math.BigMulrf1, n2) 

MsgBox (MaxNumber) 'output4611686014132420609 
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(TrunCate) lll 


وتفيد هذه الدالة بإرجاع القيمة الصحيحة من العدد المضاعف أو العشري فهي 
تحذف كل عدد بعد الفاصلة دون تقريبه ومتال على ذلك 


MsgBoXMathTruncat@35. BJoutput35 


الدوالالرباضية القديية 


VbpMath 


الدوال الموجودة في الصنف BMath‏ V؟‏ 

لقد أردت أن أبد بالشيء الأقرب للغتنا الجميلة القديمة فهذا الصنف يتضمن حاليا فقط 
دالتين يعبران عن دالتين من زمن البيسك الأولى وهاتان الدالتان. 

(Rnd) الداله‎ 


كما نوهنا أولا إن عمليات ترتيب الأصناف تتطلب عمليات تنسيق لها لذلك علينا 
تذكر عمليا أن كل دالة لها صنف رئيسي تابع لها وكلما حددنا الصنف الأعلى كان 
أسرع على المترجم إيجاده وبالتالي زيادة عمليات المعالجة نحو %٠١‏ تقريبا 
ولكن الدالة 8R,‏ هي دالة غريبة 

هذه الدالة أيضا قديمة وقد تراها في نظام 

Dos 


في بعض الأحيان ووظيفتها تقوم بتوليد سلسلة من الأرقام المحددة بقيم أنت تحددها ودورها مهم 
فانت باستخدامها تستطيع توليد مجموعة آلوان تغير من لون الخلفية عند نقرت كل زر ولكنها 
تأخد قيمة أولية ثابتة بالنسبة للقيمة المدخلة ويمكن تغير ها بواسطة استخدام أحد التوابع المذكورة 
وهي تعمل كالتالي أولا عندما ينفذ الإجراء أول مرة تقوم تخبأ قيمة معينة في الذاكرة وهي ثابتة 
لكل عدد وعند تنفيذ الإإجراء مرة إخرى تقوم عبر خوارزمية محددة بتوليد عدد جديد اعتمادا 
على العد الثابت المخزن ولكن عند إنهاء البرنامج المكان الذي حجزته أصبح فارغا فلذلك تعود 
وتكرر نفسها .في المتال اللاحق ولكن في وشكله العام 
Rnd([Number])‏ 
حيث الوسيط الممرر إليه يشمل قيم معينة مستخدم(-.+.*./)من أجل ضبط القيم ولكنه في بعض 
الأحيان يظهر العدد ومع فواصل ولتجنب ذلك نستخدم إما التابع الذي قبله بعد حذف وسيطه 
الأول أوتابع من توابع التحويل وتذكر أنه في كل مرة سينفذ البرنامج سيعطي قيمة نفسها بادء 
الأمر لكل عدد قيمة ثابتة ستظهر له وإليك المثال التالي يشرحه شرحا مفصل 
Dims, dAs Integer‏ 
هنا سوف يظهھر '5090 MsgBox (Rnd() * DateAndTime.Timer-‏ 
الرقه ليبس تفه فق كل جرة 
MsgBox (Rnd) 'outpu0. 7055...‏ 
Fors=0O T5 3‏ 
اكل من "ق الأغداة الاصغر مهن ' ))5* MsgBoXInt{tRnd)‏ 
الخمسة 
Next‏ 


۲۳ 


Ford=0 TO. 5 

MsgBoXMatRhRoundRnd) *5),MathRound7 *Rnd) +- 

الأكر من الصقر وال تساو © "ستظهر جنع االاغة اي "٠‏ (ر(ة 

Next 

ولكن عيب هذه الدالة آأتها سرف تظهر الغعدد ف أول مرة قنaة RÊM‏ 
عشوائية نفسها 


ستلاخظ تفس القيع «خفلكد جه '"الترزتامج عغكة. من االات 


(Randomize) دة‎ 


هذه الدالة أيضا قديمة قدم البيسك ولكنها أوجدت لأجل حل مأزق الدالة السابقة حيث هي تتولى 
توليد القيمة العشوائية للعدد المدخل لتابع 
وتقوم بتبديل القيمة الثابتة التي كان يأخذها مع هذه الدالة إلى قيمة عشوائية ولا يغرك ك" 
أنك تستطيع استخدمها في طباعة الأحرف أو ماشابه ذلك ولكن تستطيع فقط للقراءة بعد أدخل 
لها قيم وإذا كتبتها بمفردها سوف لن يحدث خلل وشكله التالي 

Randomize([Number]) 


ومع العلم يمكن الاستفادة منها مثلا في جعل كل ظهور النافذة تقوم بتغير خلفية معينة وهي تعمل 
ااا على ارقت رتقيه اا رل شطر من الل التاق دال الس تا رل آنا راد الم ات 
يجب أن تولدها بالنسبة للعدد الممرر. إليها وإليك المثال التالي 


Protected Overrides Sb OnKeyPressf§yValeAs 
System.Windows.Forms.KeyPressEventArgs) 

DimsAs Integer 

VBMath. Randomize () 

MeCreateGraphics.Clear (Color.FromKnownColor (KnownColor.C 
ontrol) ) 

Fors=1 To 10 

"ODEPUEU, LAS AyD ولكن بشكل متخبط‎ 


MeCreateGraphics.DrawString (s.tostings,MeFont, 
BrushesBluge1#s,18s) 

Next 

ERG. SUB 


ستلاحظ عدم تكرار القيم نفسها في كل إعادة تنفيذ البرنامج مع التذكير أنها تستفيد من الوقت 
للحصول على السلسلة من الأعداد العشوائية 


6 


الوقت والتا رخ 
DateAnd Time‏ 


مما لا شك فيه أننا بحاجة لشيء اسمه الوقت أو التاريخ فمثلا أثناء برامجك التي تحتاج فيها 
N N N oT‏ 
أو هلال ار مي عن ارو . ومتی يوم ميلادك . وماهو آقرب موعد في دفتر موعيدك متی 
کا اکر کت لراك ۶ 

اليس الوقت والتاريخ عناصر هامة في بناء برنامجك .... 

وكانت من أولى الإمتيازات التي أبقت عليها ما يكروسوفت من أوامر البيسك هي عملية الوقت 
وإمكانية تغييره ولكن آي أشبه بما یسمی خدمات دوس 

تمعن هذا المثال وهو أحد الأفكار المطروحة لحل أزمات لنا 


DimsAs Date=#1/1/2004 10:10:01AH 
FileOper1,"c:\1.bat, OpenModeOutpu}k 
Print{t1,"Timêd&" "&StringsRights.ToString11) 
Print1l, vbCrL¥F 
Print{1,"Datt&" "&StringslLef{ts.ToString8) ) 
FileClos@1) 
Shell ("cX1.bat, AppWinStyleHid 
FileSystem.Kill ("cX1.bat) 


لا نستطيع تغير الوقت: 
هذا الكلام قاله البعض القليل (الكلام ليس صحيح فأنت تستطيع تغير الوقت بنفس تعليمات 
الإصدار القديم وهذا مثال يثبت ذلك) 

Time = #1:50:30 Am# 
ولكن تحسين آداء الدوال في النت في كل إصداراتها:‎ 
إلى‎ DateTime فقد تم تغیر الصنف إسم الصنف الرئيسي لدوال الوقت والتاريخ‎ 
ولكن أبقت على الإسم ٥ص۳ ٥ه( ليكون تعريف متغير‎ hate And ime 


طبعا تم تغيير إسم الصنف والتاريخ من عص11ء اه إلى مص1آل ”۸ء ه0 أي نعم صنف 
الأول موجود ولكن يعطي نتائج ربما تحتاج إلى إعادة تنسيق 


إن عمليات حفظ الوقت والتاريخ تتطلب متغير حجمه ۸ بايت لأنه سيتم حفظ تنسيقات وقيم 
خاصة به لذلك سيتطلب هذا المقدار من الذاكرة وإن عمليات الإسناد لمتغيرات الوقت قلما 
يستخدمها البعض ولكن نشرح منها القليل 
الآن نحتاج لبعض التلميح على كيفية إسنادا متغير التاريخ الذي نحتاج لنتعامل معه 

Dim Sdate As Date=#11\ 2005# 


مع العلم أن جميع المدخلات سوف تحول لهذه الطريقة #12/25/2003#= ConstDate01d‏ 


#12 25 95# 

#Dec-25-69# 

#2%lember 1995# 

ولکن الكثير يضع في برنامجه متغير لزمن الذي تم إنهاء البرنامج وطبعا كي يعرف المستخدم 
- رأينا بعض الأمور الغريبة في لغتنا والتي هي إما أصناف تتم عمليات الوراثة ضمنها أو 
إضافات نبدأ بها في أول برنامجنا ولكن ما يسمى بوراثة الصنف التي رأيناها فمتلا (صنف 

التاريخ والوقت ) هو صنف يتضمن التاريخ وإلى ما هنالك من عمليات تنسيق عليه ولكن يوجد 

صنف وهو الصنف ثابت مع معظم الدوال والذي هو أشبه بملحق له إما بإضافة ثانية أو دقيقة 

أو حتى ساعة وإلخ ولكن جعلت الأوامر أكثر سرعة من غيرها وهذه الصورة تشرح مضمونها 


DateandA Time . How TateAnATiMmE . HOT . 
2 Hour ت‎ 3 A ج‎ 
a Mipuikê E ea BEE: 
at Month aê AddHours 
at Month aime a AddMilizeconds 
Eê a AddMinules 
2 Serêond a AddMonths 
E TiheDfD ay z2 AddSeconds 
E Tiriêr 2 AddTicks 
2p Time Erial 2 Addrears 
E TimêString =| az Compare 


يعني نأخذ من الدالة الأولى ونستورد تابع آخر موجود في أحد المكتبات أي أن الصورة على 
يمينك هي صنف تنسيق إلى الصورة على يسارك والتي هي صنف التوابع وسنبداً بالصنف 
التوابع. 


الدالة (Now)‏ 
هذه الدالة لها نفس عمل الدالة في الإصدار السابق آي تحضر التاريخ والوقت الكلي الحالي 
بتنسيق جهازك 

MsgBox (DateAndTime.Now) 'qdl>جۈÈا التاريخ والوقت‎ 


الدالة (رول٥٣)‏ 


۳٢ 


تغير مفهوم البرمجة القديم من الناحية الهرمية أي في خضم التوابع نجد مئات الأخطاء في حال 
مختلف البرمجيات ولكن المحافظة على خصوصيات الإصدار القديم لم تنتهي وهنا أيضاً 
خاصية القراءة من الدالة والإضافة أيضا أبقي عليها ومن هنا نبد الحديث على هذه الدالة 
والتي تقوم بإحضار التاريخ بتنسيق الإعدات الإقليمية المثبتة بالجهاز 
وأيضا لها قدرة على تغير التاريخ المتبت بالجهاز آي هذه الدالة قراءة كتابة مما يسمح 
ذ للمستخدم بتغيير التاريخ بکل سهولة وهذه أمثلة: 
MsgBox (#دãlا dzرl & DateAndTime.Today)‏ 
هنا غيرنا الوقت إلى وقت` DateandTimeToday=#1/1/2005#‏ 


جديد 
DateAndTime.Today)‏ « #ذا تارك MsgBox (lڵlıدz k1‏ 


الخيارات الإقليمية وخبارات اللة 


ا ات انيمي | لاك | خبارات دة | 


LESH» id عب‎ 

وت؛ Nel‏ ا1[ 
تاريخ ضير ا:۲ 

تاربخ طويل: ۵ء انون الشاني ۲٠:۵‏ 


الموئق 
امسا عد الخدمات على لو تن مجاو مات مجلا 8 الأشبار :حال الطس > حدي 
موغك الحالي: 
سوریا 2 


مواق | إنغاء امد | ثظبیق | 


(DateString) ةذlدll‎ 

هذه الدالة نفس السابقة ولكنها لا تعود إلا بالتاريخ الميلادي مهما كانت الإعدادات الإقليمية ولكن 
بتنسيق التالي : Month day-Year‏ 

أي التنسيق النصي ولكن أيضا تقوم بعملية تغير التاريخ المثبت على جهازك يعني تسمح هي 
الإخرى بتغير والدالتان السابقتان تشبهان عمل الدالتين $٥اaة0,‏ ام5 


ولكن مع فرق ضئيل وهذا المثال ا 


MsgBox (DateAndTime.DateString) 
DateAndTimeDateString=#1/1/2005¥# 


۳۷ 


MsgBox (lڵlıدzèkا| #ذا تارك‎ « DateAndTime.BteString) 


الدالة (رو5) 

(Month) 4ذlدا الدالة‎ 

الدالة الداله (Year)‏ 

لق عمتا أن تم تقس اأر قت رارج إلى مين دالة اثار يخ ووالة ارقت من أجل اذاف 
صلاحيات أكثر ومن ثم قسم كل تابع منهما إلى توابع إخرى حسب اشكالهما وهذه أقسام دالة 
الثاريخ وكلها تاخ الأشكال بالتر ثيب 


Day (Date) As Integer 

Month(date) As Integer 

Year(date) As Interger 

هذه الدالات الثالثة تقريبا لها نفس العمل في الإصدار السابق فهي تقوم بإحضار أجزاء التاريخ 


من اليوم والشهر والسنة وتحولها لنوع المتغير العديدي البسيط الذي يسمح لنا بعمليات حسابية 
عليه وأيضا أجزاء لتاريخ مسجل ضمن أي متغير 


ConstMyDateTime=#10/27/2004 12:25:12 ۶' القيمة التي‎ 
MsgBox (DateAndTime. Day (Now))'dl>جgنk1 اليوم‎ 

MsgBox (DateAndTime.Month (DateAndTime. Today))'dl—>Zۍۈıإi الشهر‎ 
( 


MsgBox (DateAndTime. Year (MyDateTime) ) ' العسكة. للقحفة الى‎ 
MsgBox (DateAndTime.Month (MyDateTime))' خيıراlتللl رقم الشھهر‎ 


اخقرفة فة 
اليوم م—ضlزف‏ '30+ MsgBoXDateAndTimeDa¥MyDateTim*‏ 
إليه ۲١‏ يوم 


(TimeOfDay) AI! 
an e ا ر ھی کن د 16 في الإضدار الساق‎ 
جهازك يعني هل تريد تغير الوقت النظام (ولكن سؤال يطرح نظام ماهي آليات الإدخال طبعا‎ 
التاريخ الذي ستدخله سيمرر على النظام أولا حتى يتأكد هل تصح القيمة المدخلة من ناحية متلا‎ 
طبعا غير مقبول‎ )۱:۷۰:٦۰( 
وهذه أمثلة على هذه الدالة.‎ 
MsgBox (DateAndTime. Time0fDay¥) dd "بتنسيق وقت الجهاز سيظهر‎ 
قت المجھاز‎ ateAndTimeTimeOfDay=#1:25:15PM تخر الوقة‎ 
# 


(Second) ûlادلا‎ 
(Minute) ذ4‎ 


ذ4 (Hour)‏ 
أما هذه الدوال أو التوابع في أقسام دالة أو تابع الوقت ونفس الأمر لها الشكل نقسه من حيث 
المضمون وتأخذ الأشكال التالية على الترتيب 


۳۸ 


Second (Time) ----------- Minute(Time) ------------- Hour(Time) 
ويمكن أن تكون القيمة الممررة إليها قيمة الوقت نفسه أو قيمة مخزة سابقا وأما للدالة الثالثة فهي‎ 
ةعاس٣‎ ٤ تعطي القيمة بالنسبة لتوقيت غرينتش يعني‎ 
ConstMyDateTime=#10/27/2004 12:25:1288" لقتو الخ‎ 
کت ا‎ 
MsgBox (DateAndTime.Second (Now) ) 
MsgBox (DateAndTime.Minute (MyDateTime) ) 
MsgBox (DateAndTime. Hour (MyDateTime))' ةıwuiلldlب‎ ةãiىعاlسلlا‎ 
اي ا‎ 
MsgBox (DateAndTime. Hour (DateAndTime.TimesString))' ةãiecelwسlıاl‎ 
نفس الموجود في الجهاز‎ 
الان جاء على شيء ربما يکون ذو آهمية أي تنسيقات التاريخ والوقت‎ 
ونا‎ 


الئداé4l (DateAdûd)‏ 
والآن اتا دور التعامل مع الدوال من أجل تنسيق الأوقات وغير ذلك وأريد أن أنوه أن هذا التابع 
من أسمه أن إضافة وقت ونكمل الشرح أنه سوف يعود بتاريخ ما بعد إضافة قيمة له وله شكلان 
HSGEox (DateAinA Time . Date ALAA ly, Honth, lU, HrDateTime;]‏ 


AoA  Dateêdd [lnterwal zs String: Number As Double. DatêYalue ûs Object] ã3 Dale 
Number: Double. Floating-point expression reprezenting:the numberof intervals pou want to ac 
datetime YaluEš in the future] or negative [ta gel: datetime waluês in the past]: 


DateAdd(Interval As string, Number As Double,date) 


أما القسم الأول وهو 
Interval‏ 
من نوع نصي يشمل قيمة تحدد كالتالي 


--------------- )ربع سنة 


e EEE 
يوم‎ 


e 


---۔---۔-۔-۔-------- ردفیقه 

و ثاتية 

وأرجو أن يتم التركيز عليه فسوف يلزمنا في التوابع الإضافية 

Number 

وهو عدد الزيادة من من التوصيفات السابقة يعني إذا كنا قد اردنا إضافة ٥‏ ساعات نكتب ١‏ مع 
مراعاة التنسيق السابق 

Date 

وهو يشمل آي تاريخ أو وقت إما باستخدام دوال التاريخ والوقت أو باستخدام تواريخ تثابتة كما 
نوهنا في أول الصفحة يعني وهي دالة شبيهة بجمع الوقت متل الأمثلة السابقة وطبعا عند إضافة 
وقت خارج حدود نوع البيانات التاريخ سوف تلقائيا ياتي بأقرب زمن مناسب 


۹ 


أما الشكل الثاني فهو تابع موار النت أي بدلا من أن تكتب التنسيق رموز إستبدلتها 
مايكروسوفت بتابع من نوع ۳ں" الذي يسمح لك بإختيار الأقرب بدل من الأول 


Uatelrterval. Dap fear 
Datelnteryal. Hour 
Datelrteiyal. Minute 
Datelnteryal. Marth 
Datelrteryal. Huarter 
Datelrteryal. 5 ecard 
Uatelrterval weekday 
Datelrteryal. wWeekOffear 
Datelrteryal. Tear 

lê1 of 2#  Dateûdd [Interval As Microsoft ¥Yisualf asic at 
Interval: Datelnterval enumeration Yalue representing the time int 


ستقول لي ماهو الفرق إن الفرق التالي على شاكلة الأسهل والأصعب أي نفس المسميات فمثلا 
Quart‏ ستضيف ربع سنة وهكذا وإن أردت صناعة تابع مشابه فإذهب إلى ملحق الكتاب 
Private SubButtoh ClicKByValsenderAsSystem.Objet,‏ 
ByValeAsSystem.EventArgs) HandlesButton.Click‏ 
ConstMyDate=#1/1/2004 1:50:00Ak‏ 
MsgBoXDateAndTimeDateAdd¥", 1, DateAndTimeToday}y)‏ 
لفك أضفنا ربع فا 
MsgBoXDateAndTimeDateAddY¥", 1, DateAndTimeToday}y)‏ 
MsgBoXDateAndTimeDateAddH", 2, MyDate) )'#1/1/2004‏ 
00A‏ :2:50 
MsgBoXDateAndTimeDateAddYyyY,1,‏ 
DateAndTime.DateString) )‏ 
MsgBox (DateAndTime.DateAdd (DateInterval.Year, -1,‏ 
قمنا بطرح سنة من التاريخ ال جۈlانيd' MyDate))‏ 
End Sub‏ 
بر كا اعدا ق الاك ات عك أن اتطزح ان مكف اظن اتا 
ليس صعبة وهلم إلى 


(DateDiff) دة‎ 


وهو التابع الثاني من توابع تنسيق التاريخ ويقوم بمقارنة تاريخان وإظهار عدد الأيام أو السنين أو 
الساعات أو ماشابه من مجمل التوصيفات السابقة 

أي يقوم بإظهار الوقت بين التاريخان (بالنسبة لنوع التنسيق المدخل ) فهو أولا يقوم بمعرفة من 
هو كبر ثم يطرح الصغير من الكبير لتظهر لنا نتيجة وهي الفرق إما بالشهور أو بالساعات أو 
بالايام حسب الوسيط 

DateDiff(Intrival as String,date1,date2,firstdayOfweek,firstWeekOfYear) 
القسم الأول تم شرحه في الدالة السابقة تذكر أنه سيرجع القيمة بالنسبة لهذا الوسيط‎ 
Datel,Date2 

وهما التاريخان الذان سوف يتم حساب الفرق بينهما 

FirstDayOfWeek 

وهو من أجل تحديد اليوم الذي يبدأ فيه الأسبوع وإذا لم يتم إدخاله يأخدذ الأحد إفتراضيا وطبعا 


ياخذ سبع قيم وهي أيام الأسبوع 

first WeekOfYear 

وهذا يحدد الأسبوع الأول من السنة وإذا لم يدخل فسوف يأخذ إفتراضيا الأسبوع الأول لكانون 
الثاني ويأخذ أربع قيم وهي بتنسيقات مختلفة من ٠‏ إلى ٤‏ قيم كالبداية بالنسبة لتجهيزات النظام أو 
الذاية لاسرع الارل الى بكرن ١‏ كانزن التي أوأرل أشوع يري ارجح أبام اوعد الاسر ع 
الكامل لرأس السنة الجديدة و عند إضافة وقت أكبر من وقت سوف تكون النتيجة سالبة وطبعا 
تعرف السبب .... 


ConstMyDate=#1/1/2003 1:50:00Ak 

MsgBox (DateAndTime.DateDiff ("h", MyDate, Now, vbFriday, 
vbF'irstJa®A))'رهظضت القيمة التي سوف‎ 

MsgBox (DateAndTime.DateDiff (DateIntezal .Hour, MyDate, 
NoOW(()( القيمة التي سوف تظهر تشابه السابقة'‎ 


ج 


MsgBox (DateAndTime.DateDiff ("yyyy", MyDate, Now, 
vbF'riday, vbFirstFullWeek) ) 

MsgBox (DateAndTime.DateDiff (DateInterval.Year, MyDate, 
Now, vbSaturday, vbUseSystem))' ةقJãةبlسلفlJا القيمة نفس‎ 

"كما لا حظنا انه لا يوجد فرق أثناء الحساب على ما 

أك .و 


(DatePart) ةlIدلl‎ 


وهي دالة شبيهة بالدالة السابقة ولكنها تعطي جزء محدد من تاريخ ممرر إليها شكلها نفس 
السابقة إلى أنه حذف التاريخ الثاني ووظيفتها مفيدة كثيرا فمثلا أننا أدخلنا تاريخ ولادتك وأردت 
معرفة اليوم الذي اتيت فيه فهي ترجع لك ذلك طبعا ومثلا إذا طلبنا من من شخص ما على 
سبيل المثال تاريخ ولادته وأردنا أن نعرف فقط السنة أو الشهر ترجع لنا هذه الدالة السنة أو 
الشهر إذا بتعرف برنامج حدث في مثل هذا اليوم يستعمل هذه الدالة وما بخربطوا وهذا مثال 
لذلك وأرجو أن لايبدو سيئاأً فلقد غيرت الديكور 


DimadateAs SEEING 

أدخل التاريخ الذي تريد"» "( adate =CDat¢InputBox‏ 
Today) )‏ ,اوخل التاريخ 

& "لسنة التي تصادف التاريخ الذي حددته هل) Ms3980×‏ 
DatePart ("yyyy", adate, FirstDayOfWeek.Friday,‏ 
FirstWekOfYear.FirstFullWeek) )‏ 


(DateValue) lll 
هذه الدالة من ناحية النفع أظنها يوجد منها يعني تعيد القيمة التاريخ من بين علامات التنصيص‎ 
إلى تاريخ عادي مع أنها ترجع الثاريخ الحالي إذا لم تقوم بإكماله وتقيل فقط نوع من التنسيقات‎ 

وليس كلها على غرار الإصدار السابق 


٤ 


نسحن اليل كان تة ' ) "MsgBoXDateVvalu¢1!-2+2002)‏ 
بالإصدار السادس ولكن رحل 

التنسيق الثاني'))DateVa1lu¢1/1/200ېMsgBoX‏ 

سوف یضیز اlلlسiة MsgBoXDateAndTimeDateVa1lUu¢1/1))'‏ 

الحالية إليه 


أخن باك إن الذرآل الكى سرد والفقطفة برقت عملا شس عمل ذرال تضبق 
التاريخ فلذلك لن أقوم بإعادة شرح أجزائه 


(DateSerial) lll 
إن لهذه الدالة شيء جميل فهي تحول أجزاء التاريخ(سنةءشهرءيوم) إلى سلسلة واحدة‎ 


فكما تعلم أن تدع المستخدم يدخل وقته أمر جد صعب ولكن لا ريبمن أننا نحتاج إلهام أنفسنا 
بعض العناء لإدخالات المستخدم 


Dim Aday As Integer 

Dim Amonth As Integer 

Dim AYear As Integer 

Aday = Val (InputBox (JخدıÎ‎ مgيıl"))‎ 

Amonth = Val (InputBox ("Month") ) 

AYear = Val (InputBox ("Year") ) 

MsgBox DateTime.DateSerial (AYear, Amonth, Aday) 
المعرفة من الكثير يتطلب ولا بسيط المثال'‎ 


ائدlأ4 (MonthName)‏ 
إسم الشهر وما أحوجنا إليه فمثلا بلاا من أن أضع رموز الاشهر وإخذنها في تركيب 
من نوع 
Enum‏ 

طبعا تأخذ الرقم لتعطيك إياه 

DateAndTimeMonthNam¢NumberMonth, AbbReviateas Fals$ 
الوسائط‎ 
NumberMonth 


رقم الشهر المراد إسمه وطبعا إسم الشهر سيظهر بنسق الاعدادات الاقليمية لنظامك 
المثت وهو من ٠-١‏ زق الاشهر 


AbbReviate 


January ----Jan 
طبعا الاختصار باللغة الاجنبية فأما باللغة العربية فلايوجد إختصار لاسم الشهر ومع‎ 
ذلك ذا كنت لات ريد الاختصار فاجعلها مساوية‎ 
False 
DateAndTimeMonthNam¢1, Fals$ 


(TimeSerial) lll 
وهذه الدالة نفس وظيفة الدالة لسلسلة التاريخ إلى أنها تستعمل الساعات والدقائق‎ 


والثواني ونفس الكود الذي أدخلناه إلى الدالة التاريخية فقط إستبدل عنواين الصناديق 
الإدخال وغير التابع الأخير من 
DateSerial ....... TimeSerial‏ 
lلدllة (TimeValue)‏ 
نفس الأمر إلى أن طريقة إدخال ضمن التابع تكون كالتالي وهذا المثال 


Msgbox DateandTime.TimeValue("1:50:30") 


(Timer) ذ4‎ 

وهو دالة تعيد التاريخ من ٠٠,٠٠,٠١‏ إلى الساعة۲٠,۹١٠,٠٠‏ مساء وتعود الوقت بالثانية ويمكن 
إجراء العمليات عليها 

۲٤ تعني‎ ٠۰ طبعا‎ 


Msgbox Dateand Time. Timer / 60 قئlقدلاب الوقت سوف يخرج‎ 


(WeekDay) الدالة‎ 

وهي دالة تعبر عن اليوم أسبوع في تاريخ محدد بالأرقام وهي كالتالي يعني ذا أخرجت الرقم ٠‏ 
معناته اليوم أحد ونفس الأمر يمكننا أن نحصل عليها من دوال أخرى 

(تعني رقم اليوم من التاريخ المسند إليها 

الاحد =1 

الاثنين= 2 

الثلاتاء= 3 

الأربعاء =4 

الخميس= 5 


<۳ 


الا 
السبت= 7 


ولكنك لو قمت بتغير يوم رأ س الأسبوع عن طريق البارمتر الثاني أي سيبدأ العد من يوم 
ETT‏ 


Msgbox DateAndTime.Weekday (today) 
Msgbox DateAndTime.Weekday (today, FirstDayOfWeek.Friday 


) 


تفيد هذه الدالة في حال أردنا أن نوفر مساحة أسماء الايام ونستخدم بدلا عن ذلك رقم معرف 


(WeekDayName) lll 
وهو دالة حديثة تعيد لك اسم اليوم ولا يهمك منها إلى القيمتين الأولى حيث تضع فيه‎ 
رقم اليوم الذي تريد والأخيرة بحيث يبدأ العد من أحد الأيام كالجمعة مثلا‎ 


MsgBox (WeekdayName (DateAndTime.Weekday (Today, vbFriday), 
, vbFriday) ) 


كما لاحظت سوف يأتي اليوم الحالي الذي نحن فيه ' 


٤ 


Financial 


كثير من المبرمجين من غض البصر على هذه التوابع وربما تراجع عنه ذلك لأن فيها من 
القوانين التي تجيز أرباح غير شرعية لفوائد السنوية أو السناهية أو الربوية ولكن لم يقم أحد 
من المبرمجين الذين طوروا لغة الفيجوال بالإضافة عليها ولكن سنشرحها 

لقد جلبت بعض القوانين التي ستراها في شروحنا من مرجع اقتصادي إن صح القول 


بإذن الله 
وإليك بعض المصطلحات 2 
الإهتلاك: هو قانون رياضي يعبر عن الربح أو الخسارة لقطعة ما أو أي غرض يبخس زمنه 


باستعماله... 
وقانونه العام هو(الإهتلاك خلال فترما-(التكلفة- مجموع الإهتلاكات خلال الفترات السابقة*١)/مدة‏ استخدام 
القطعة الأصل) 


وهنا نأتي لنبدأ بشرح أول تابع من توابع الموارد المالية: 


(DD8( الدالة‎ 


وهذا التابع يقوم بإحضار قيمة الإهتلاك لأي قطعة قمت بشرائها وتريد أن تحسب معدل 
اهتلاكها(ربح|اخسارة) فإذا كنت تود أن تشتري قطعة فاستعمل التابع هذا ليدلك عن قيمة 
اهتلاكها وشكل هذا التابع من الشكل: 


DDB(Cost As Double ,Salvage As Double ,Life As Double,Period As Double 


,„ Factor) 
وسنشرح بارمترات هذا التابع:‎ 
ماذا يعبر الوسيط‎ 
Cost التكلفة الرئيسية لبيت أو سيارة أو..الخ‎ 
Salvage قيمة البيت أوأي غرض في نهاية فترة استخدامه الممكنة‎ 
Life مدة استخدام البيت أو ..الخ الممكنة‎ 
Period الفترة التي يحسب لأجلها الإهتلاك‎ 
هذه لطلاب الاقتصاد إذ يحدد معدل ميزان الانحدار فاإذا كان۲ الانحدار‎ 
Factor : ا‎ 
المضاعف وهكذا‎ 


ملاحظة: 

Life=Period 

أي التاريخ في كلا الطرفين نفسه أي كلا الطرفين إما شهريا أو سنويا 
وهذا مثال يوضح قيمة الإهتلاك لسيارة أنت اشتريتها.. 


5 


Private Sub يتراlيس_كالتها‎ (( 


تسخ الشستارة ليون اة" ConstCost=1000000‏ 

سغن الساارة التهائى عة ١١‏ ستوات ' ConstSalvage=100000‏ 
مدة استخد اخ السارة الNممكة‏ وهي ' CONSELIEESTLOF L2‏ 
٠١‏ شهر وليس كما في بعض الدول حتى الموت 

دهي الفرة ال جس لاأجلكهاا. الاإهتاك وهي ' 12* ConstPeriod=3‏ 
١‏ شهر 

مدر الق ا عدار "الاعف ' ConstFactor=2‏ 

Interaction. MsgBOX *% "الإهتلاك لهذه السيارة بعد ۳ سنوات هي‎ & 
Financial.DDB (ost, Salvage, Life, Period, Factor) ) 


ERO Sub 
وإليك مصطلح من مصطلحات الربا وهي السناهية أو القروض السنوية‎ 
السناهية:‎ 
وهي سلاسل من دفعات نقدية ثابتة تودى طوال فترة من الزمن ويمكن أن تكون السناهية قرضا‎ 


(كما في رهن بيت) أو توظيف للمال كما في خطة توفير أو ادخار شهرية 


الدالة (FW‏ 
يعيد ويحدد القيمة المستقبلية "السناهية""رإالام ۸" للمبلغ السنوي الواجب دفعه خلال فترة 
معينة على دفعات ثابتة ودورية بمعدل فائدة ثابتة أيضا 


ماذا يعبر الجزء 
لازم يحدد معدل الفائدة خلال فترة ما :متلا إذ اشتريت يبت بقرض بمعدل نسبة 


مئوية سنوية٠ %١‏ وعلى دفعات شهرية عندها يكون المعدل الدوري ٠٠/٠,١‏ أو Rate‏ 
AY‏ 9۹و 

لازم قيمة صحيحة تحدد العدد الإجمالي لفترات الدفع في السنة :مثال إذا كان فترة 

قرض ما لشراء أرض لمدة أربع خمس سنوات والدفعات شهريا ستكون عدد Nepr‏ 


لازم وهو قيمة تحدد الدفعة التي ستقوم بدفعها خلال الفترة الواحدة حيث تمتاك 


الت ت ق غر عل ع ا و Pmt‏ 
بحدد القيمة الحالية(أى المجموع الكلى) لسلسلة دفعات المستفلية Pv‏ 
وهو ذو قيمتان إما أول الشهر أو أخره ويمتل قيمة إستحقاقة الدفع DueDate‏ 


وهدا مثال 
)( قيمة قرض_سيا تي Private Sub‏ 
االفائندة هي 5١١‏ خلال ادفعات شهردة' ConstValRate=0.1/12‏ 
دة القزض عغشر ستو ات' ConstvalNepr=120‏ 
فة الدقعة. االو اخدة' ConstValPmt=5000‏ 


Interaction. MsgBox (hjڙãlJIا‎ aiaıJ & Financial .FV (ValRate, 
valNeprValPmE0, DueDateBegOfPeriod) 


٤٦ 


End Sub 


(IPmt) All 


يعيد قيمة محددة لدفعة فائدة سناهية أو قرض أا" "ج معينة اعتمادا على معدل فائدة ثابت 
دورية أو دفعات ثابتة أي عندما تكون كل الدفعات ثابتة بقيم متساوية. 


شکله: 
Financial IPm{Rate, Per, Nper, PV,FV, DueDate‏ 

ماذا يعبر الجزء 
لازم يحدد معدل الفائدة خلال فترة ما:مثلا إذا اشتريت يبت بقرض بمعدل نسبة 
مئوية سنوية٠ %١‏ وعلى دفعات شهرية عندها يكون المعدل الدوري ٠٠/٠,١‏ أو Rate‏ 
y۰ AY‏ 

لازم يحدد فترة الدفع في المجال | وحتى per nep‏ 
لازم يحدد الرقم الكلي لفترات الدفع في السناهية وشرحناه في المثال الأول nper‏ 
لازم يحدد القيمة الحالية لسلسلة دفعات مستقبلية أو إيصالات استلام فعندما تقترض 
مال لشراء أرض فإن قيمة القرض هي القيمة الحالية لمقرض دفعات السيارة PV‏ 


ار اى ها 
اختياري يحدد قيمة مستقبلية أو الرصيد نقدي تريده بعد أن تنفذ الدفعة الأخيرة على 
سبيل المثال القيمة المستقبلية لقرض هي )5٠(‏ وذلك لأن هذه قيمته بعد الدفعة 


الأخيرة على كل حال إذا أردت أن تحفظ وتبقي٠٠٠٠٠۲ل‏ طوال ۸ سنة من أجل FV‏ 
تربية أطفالك عندئذ فإن ١٠٠٠٠۲ل‏ هي القيمة المستقبلية وإذا تركتها فستأخذ الصفر 

دوما 

وهو ذو قيمتان إما أول الشهر أو أخره ويمتل قيمة إستحقاقة الدفع DueDate‏ 


(IRR) ll! 


تعيد قيمة عددية. تحدد المعدل الداخلي لعودة سلسلة من التدفقات النقدية الدورية (دفعات 
(ومعنى المعدل الداخلي للإرجاع هو عبارة عن معدل الفائدة المستقبلية (المأخوذة ) من توظيف 
المال المؤلف من دفعات وإيصالات استلام بالترتيب الصحيح (ليس بالضرورة أن يكون التدفق 
النقدي لكل فترة ثابتا كما هو الحال بالنسبة للسناهية) 

Financial.IRR (ValueArray, Guess وشکله التالي‎ 


۷ 


ماذا يعيبر الجزء 
لازم يعين قيم التدفق النقدي .يجب أن يضم هذا النسق قيمة سالبة واحدة على 
الأقل (دفعة )وقيمة موجبة واحدة إيصال استلام أي مصفوفة سنريك منها في لوإإومuاو‏ 


مثال لاحق 
اختیار ي يحدد قيمة التي تتوقع استرجاعها بواسطة ١۲|وإذا‏ حذفت سيأخذ تلقائي Guess‏ 
٠,١‏ أي ٠١‏ % ملاحظة سلسلة الأعداد هي عبارة عن مصفوفة 


(Mirr) lI 


يعيد قيمة تحدد النسبة الداخلية المعدلة للإرجاع من أجل سلسلة من تدفقات نقدية محددة (دفعات 
وإيصالات وإن النسبة الداخلية المعدلة للإرجاع هي نسبة داخلية للإرجاع حيث الدفعات 
والإيصالات تقيم بنسب مختلفة يأخذ هذا التابع في اعتباره كل من الكلفة التوظيف المالي) 


ماذا يعبر الجزء 
لازم يعين قيم التدفق النقدي .يجب أن يضم هذا النسق قيمة سالبة واحدة على 
الأقل (دفعة )وقيمة موجبة واحدة إيصال استلام أي مصفوفة سنريك منها في valuearray‏ 
مال لاحق 
نخدد نة الفا المذق عة عة اة 
مطلوب يحدد نسبة الفائدة المستقبلية عن أرباح من إعادة التوظيف يحدد نسبة 
الفائدة المستقبلية عن أرباح من إعادة التوظيف المالي reinvesrate‏ 
والفائدة تمتل ٠,١‏ إذا كانت %٠١‏ 


Finance _ rate 


(NPV) الدال_‎ 


تخد ا اة الا غ ا اعا لى م من قات فة رر 
(دفعات وايصالات )و معدل الحسم 


ماذا يعبر الوسيط 


لازم. يحدد معدل الحسم طوال المدة يعبر عنه عشریاً Rate‏ 
لازم .مصفوفة يحدد قيم تدفق نقدي .یجب أن يحتوي النسق على قيمة سالبة واحدة 

Values e TO 
على الأقل دفعة وقيمة موجبة واحدة(إيصال)‎ 


القيمة النهائية الحالية لتوظيف المال هي القيمة الحالية لسلاسل مستقبلية من دفعات وإيصالات 
يستخدم التابع القيم المرتبة ضمن النسق ليفسر الدفعات والإيصالات المرتبة يجب علينا الترتيب 
يشبه هذا التابع ۷ماعدا أن التابع ۴۷يسمح للتدفق النقدي أن يبدأ إما عند النهاية أو البداية 
لفترة . تختلف قيم التدفق المالي للمتحول ۷م يجب أن يكون التدفق المالي مثابتا خلال 
توظيف المال البداية لفترة تختلف قيم التدفق المالي للمتحول م يجب أن يكون التدفق المالي 


خلال توظيف المال 
DimSerialSell13)As Double‏ 
SerialSel(1) =3000‏ 
SerialSel(2) =5000‏ 
SerialSel(3) =-3000‏ 
5 الجسم ConstRateBound=0.1 '١٠١‏ 
MsgBox (Financial .NPYRateBound, SerialSell) )‏ 
(NPer( AÛ‏ 


يرجع قيمة تحدد عدد الفترات من أجل السناهية تعتمد على دوري › ومعدل فائدة ثابت 
ولها هذه الشكل: 


(Financial.NPer (Rate, Pmt, Pv, FV, DueDate ) 


۹۹ 


ماذا يعبر الجزء 
لازم يحدد معدل الفائدة خلال فترة ما :متلا إذا إشتريت يبت بقرض بمعدل نسبة مئوية 
سنوية٠ %١‏ وعلى دفعات شهرية عندها يكون المعدل الدوري ,۱١‏ 1۲/۰ أو gy *AY‏ 

لازم وهو قيمة تحدد الدفعة التي ستقوم بدفعها خلال الفترة الواحدة حيث تمتلك الدفعات 
مبداً وفائدة غير متبدلة خلال مدة دفع المبلغ سنوي 

لازم يحدد القيمة الحالية لسلسلة دفعات مستقبلية أو إيصالات إستلام فعندما تقترض مال 
لشراء أرض فإن قيمة القرض هي القيمة الحالية لمقرض دفعات السيارة الشهرية التي PV‏ 


تنفذها 


Rate 


PMT 


إختياري يحدد قيمة مستقبلية أو الرصيد نقدي تريده بعد أن تنفذ الدفعة الأخيرة على 

سبيل المثال القيمة المستقبلية لقرض هي )$٠0(‏ وذلك لأن هذه قيمته بعد الدفعة الأخيرة 5 
على كل حال إذا أردت أن تحفظ وتبقي ٠٠‏ ٠٠٠۲ل‏ طوال ۸ سنة من أجل تربية أطفالك 

وهو ذو قيمتان إما أول الشهر أو أخره ويمثل قيمة إستحقاقة الدفع 
من أجل كل المعاملات ٠‏ الدفع النقدي(مثل ودائع للتخزين) يعاد تمثيلها بأر قام سالبة » الإستقبال 
النقدي(متل شيكات الأرباح) يعاد تمثيله بأرقم موجبة . 


الدالة (٤ص۶P)‏ 


يعيد قيمة تحدد الدفعة من أجل سناهية تعتمد على التكرار في فترات نظامية › دفعات ثابتة 
Financial. Pmt (Rate, Nper, PV, FV, DueDate)‏ 
ماذا يعبر الجزء 
لازم يحدد معدل الفائدة خلال فترة ما :متلا إذا إشتريت يبت بقرض بمعدل نسبة مئوية 
سنوية٠ %١‏ وعلى دفعات شهرية عندها يكون المعدل الدوري ٠۲/۰,۱‏ أو ٠,٠٠١۸۳‏ 
لازم يحدد الرقم الكلي لفترات الدفع في السناهية وشرحناه في المثال الأول nper‏ 
لازم يحدد القيمة الحالية لسلسلة دفعات مستقبلية أو إيصالات إستلام فعندما تقترض مال 
لشراء أرض فإن قيمة القرض هي القيمة الحالية لمقرض دفعات السيارة الشهرية التي PV‏ 


ستنفذها 


Rate 


اختياري يحدد قيمة مستقبلية أو الرصيد نقدي تريده بعد أن تنفذ الدفعة الأخيرة على 
سبيل المثال القيمة المستقبلية لقرض هي (50) وذلك لأن هذه قيمته بعد الدفعة الأخيرة 
على کل حال اذا ردت أن تحفظ وتبقى٠‏ ١٠٠٠ل‏ طوال ١۸‏ سنة من أجل تر بية أطفالك 
عندئذ فإن ١٠٠٠ل‏ هي القيمة المستقبلية وإذا تركتها فستأخذ الصفر دوما 


FV 


Due 


وهو ذو قيمتان إما أول الشهر أو أخره ويمثل قيمة إستحقاقة الدفع Dê‏ 


(PPmt) _lIلا‎ 


يعيد قيمة تحدد الدفعة الرئيسية من أجل فترة معطاة سناهية اعتمادا على تكرار في فترات 


نظامية » دفعات تابتة ومعدل فائدة ثابت 


Financial .PPmt Rate,per,Npe,Pv,FV,DueDate ) 


وله نفس معاملات م | 


ماڏا يعبر 

لازم يحدد معدل الفائدة خلال فترة ما :مثلا إذا اشتريت يبت بقرض بمعدل نسبة 
مئوية سنوية %٠٠١‏ وعلى دفعات شهرية عندها يكون المعدل الدوري ٠٠/٠,١‏ أو 
AY‏ 9۹و 

لازم يحدد فترة الدفع في المجال | وحتى nep‏ 

لازم يحدد الرقم الكلي لفترات الدفع في السناهية وشرحناه في المثال الأول 

لازم يحدد القيمة الحالية لسلسلة دفعات مستقبلية أو إيصالات إستلام فعندما تقترض 
مال لشراء أرض فإن قيمة القرض هي القيمة الحالية لمقرض دفعات السيارة 
الشهرية التي ستنفذها 

إختياري يحدد قيمة مستقبلية أو الرصيد نقدي تريده بعد أن تنفذ الدفعة الأخيرة على 
سبيل المثال القيمة المستقبلية لقرض هي )5٠0(‏ وذلك لأن هذه قيمته بعد الدفعة 
الأخيرة على كل حال إذا أردت أن تحفظ وتبقي٠٠٠٠۲ل‏ طوال ۱۸ سنة من أجل 
تربية أطفالك عندئذ فإن ١٠٠٠٠۲ل‏ هي القيمة المستقبلية وإذا تركتها فستأخذ الصفر 
دوما 


وهو ذو قيمتان إما أول الشهر أو أخره ويمثل قيمة إستحقاقة الدفع 


)٥۷( الدالة‎ 


الجزء 


Rate 


per 
nper 


PV 


FV 


DueDate 


لازم يحدد القيمة الحالية لسلسلة دفعات مستقبلية أو إيصالات إستلام فعندما تقترض مال لشراء 
أرض فإن قيمة القرض هي القيمة الحالية لمقرض دفعات السيارة الشهرية التي ستنفذها 


Pv (Rate, Nper, Pmt, FV, DueDate) 


°١ 


ماڏا يعبر الجزء 
لازم يحدد معدل الفائدة خلال فترة ما :مثلا إذا اشتريت يبت بقرض بمعدل نسبة 

مئوية سنوية %٠٠١‏ وعلى دفعات شهرية عندها يكون المعدل الدوري ٠٠/٠,١‏ أو Rate‏ 
AY‏ 

لازم يحدد الرقم الكلي لفترات الدفع في السناهية وشرحناه في المثال الأول nper‏ 
لازم وهو قيمة تحدد الدفعة التي ستقوم بدفعها خلال الفترة الواحدة حيث تمتلك P‏ 
الدفعات مبداً وفائدة غير متبدلة خلال مدة دفع المبلغ سنوي i‏ 
إختياري يحدد قيمة مستقبلية أو الرصيد نقدي تريده بعد أن تنفذ الدفعة الأخيرة على 

سبيل المثال القيمة المستقبلية لقرض هي )5٠(‏ وذلك لأن هذه قيمته بعد الدفعة 

الأخيرة على كل حال إذا أردت أن تحفظ وتبقي٠٠٠٠٠۲ل‏ طوال ۱۸ سنة من أجل FV‏ 
تربية أطفالك عندئذ فإن ١٠٠٠٠۲ل‏ هي القيمة المستقبلية وإذا تركتها فستأخذ الصفر 

دوما 

وهو ذو قيمتان إما أول الشهر أو أخره ويمتل قيمة إستحقاقة الدفع DueDate‏ 


(Rate) الدالة‎ 


يعيد قيمة تحدد معدل الفائدة لكل فترة من السناهية 


وشکله: 

Financial .Rate (Nper, Pmt,,Pv,FV, DueDate )‏ 
ماذا يعبر الجزء 
لازم يحدد الرقم الكلي لفترات الدفع في السناهية وشرحناه في المثال الأول nper‏ 
لازم وهو قيمة تحدد الدفعة التي ستقوم بدفعها خلال الفترة الواحدة حيث تمتلك الدفعات 
مبداً وفائدة غير متبدلة خلال مدة دفع المبلغ سنوي Fmt‏ 
لازم يحدد القيمة الحالية لسلسلة دفعات مستقبلية أو إيصالات استلام فعندما تقترض مال 
لشراء أرض فإن قيمة القرض هي القيمة الحالية لمقرض دفعات السيارة الشهرية التي PV‏ 
ستنفذها 
اختياري يحدد قيمة مستقبلية أو الرصيد نقدي تريده بعد أن تنفذ الدفعة الأخيرة على 
سبيل المثال القيمة المستقبلية لقرض هي ( )٠‏ وذلك لأن هذه قيمته بعد الدفعة الأخيرة FV‏ 
على كل حال إذا أردت أن تحفظ وتبقي٠٠‏ ٠٠٠۲ل‏ طوال ۸ سنة من أجل تربية أطفالك 
وهو ذو قيمتان إما أول الشهر أو أخره ويمثل قيمة إستحقاقة الدفع ا 

ate 


(SL) الدالة‎ 


oY 


قيمة تحدد الاستهلاك المباشر من شيء نافع من أجل فترة بسيطة أي الاستنفاع في كل شهر أو 
مدة )11f(‏ مثلا طيلة الحياة ٠١*٠١‏ أو بالسنوات يجب أن يعبر عن فترة الأستهلاك بنفس 
الواحدة التي يستخدمها المعامل يجب أن تكون كل المعاملات أعدادا موجبة 


ماذا يعبر الجزء 
يحدد الكلفة الأولية للشيء النافع الذي استعملته كسيارة Cost‏ 


لازم يحدد قيمة الشيء النافع في نهاية حياته أي سعر السيارة بعد ٠‏ سنوات أي آخر 
قيمة يمكن أن تباع بها 
لازم يحدد طول الحياة المفيدة للشيء المشترى النافع Life‏ 


Salvage 


سغر المسبارة زتهي جدىدة "300000 = CORSE COSECaF‏ 

شغر السبارة حغد هاية. استغمaاكا‏ " 100000 = Const SalvagêCaê‏ 

CoN SE LECE TO #12 فة الحا اة"‎ 

MsgBox (Financial. SLN (CostCar, SalvageCar, LifeCar)) ' dكmالتھإلا مقدار‎ 
الشهري‎ 


)S۷(5( الدالة‎ 


قيمة محددة لأرقام مجموع السنوات لانخفاض قيمة شيء نافع خلال فترة محددة معينة 
لإعادة قيمة انخفاض الشيء النافع لفترة محددة 


ماذا يعبر الجزء 


لازم. قيمة مضاعفة محددة للكلفة الابتدائية للشيء النافع أوموءءA Cost‏ 
لازم. قيمة تحدد قيمة الشيء النافع عند نهاية حياته المفيدة Salvage‏ 
لازم. قيمة تحدد طول الحياة المفيدة للشيء النافع Life‏ 
لازم. قيمة تحدد الفترة الزمنية للشيء النافع الذي ستحسب له قيمة انخفاض القيمة Period‏ 


يجب أن تحدد المعاملات 1f‏ و إ0ذه۴ في نفس واحدة القياس فعلى سبيل المثال: 
إذا أعطي المعامل م]1] بالشهور فيجب استخدام المعامل ۴٥:٥4‏ بالشهور أيضا يجب أن 
تكون كافة قيم المعاملات أعداد موجبة 


سعغز السيازة وهي خديدة" 300000 = Const CostCaE‏ 

عر اتسازة اححك اة اهايا " 100000 = CORSE SalvageCar‏ 

دة الحياة الشهرىة ° 12 * 10 = CORSE LIEECaF7‏ 

إذا كنت أريد بيع السيارة بعد £ٍ سنوات' 12 * 4 = Const LifeToSell‏ 

MsgBox (Financial.SYD (CostCar, SalvageCar, LifeCar, LifeToSell)) 
'مقدارالإنخفاض شهرياالإهتلاك الشهري‎ 


or 


دوال النصوص 
Strings‏ 


جاء دور وقت الترميز وحلوه ومشاكل التحويل والتشفير والبحث والاستبدال في كل الإدخالات 
تكمن أهمية هذا الصنقف من خلال السهولة فى أدائها وتوفير الوقت فى كتابتها والحصول على 
st‏ ي ي 
ستكون الشروح للإصدار الجديد دون التطرق كيف كانت الحال في الإصدار القديم.. 
ونبدأها مرتبة آبجديا وعرض الدوال التي تشبه بعضها جماعيا لتوفير الوقت 
وسنأخذ مثال جديد من نوعه وهو رسم سلسلة المحا رف على النافذة ففي حال عدم كتابة اسم 
الحدث فإنه يكون مه۴ م0 للنافذة في حال كان 

e.Graphics.DrawString 


لان الكتاب لايتطرق لدوال البديلة ل ۲1 ۸. 


)Asc, ۸C W( الدالتین‎ 


٥‏ تعيد ترميز الحرف إلى قيمته في جداول (الأس كي) أما الأخرى فهي ترميز ملهءاو ا 


(Chr,ChrW) jيتلادنا‎ 


1 تعيد قيمة الأس كي(العددية) إلى شكل كل محرف أما الأخرى فهي تعيد قيمة ءل0ء لا 
إلى المحرف الذي يقابلها 


وهذه أمثلة على للحصوJ ASCII Je‏ ڍڪ UNCODE‏ 


Protected Overrides SubOnKeyPressf§yValeAs 
System.Windows.Forms.KeyPressEventArgs) 


MeCreateGraphics.Clear (Color.FromKnownColor (KnownColor.C 
ه١اإ01((' هنا مسحنا الفورم من أي كتابة‎ 


MeCreateGraphics.PawString (Strings.Asc (e.KeyChar.ToStri 


ng) &4 " " & e.KeyChar.ToString,MeFont, Brushes.Blue, 
1910D 
MeCreateGraphics.DrawString (Strings.AscW (e.KeyChar.ToStr 
ing) & " " & e.KeyChar.ToString,MeFont, Brushes.Blue, 


3930 


o٤ 


End Sub 


(InStr) 4ذiادلا‎ 

هذه الدالة من دوال البحث حيث ترجع قيمة عددية ترجع من خلالها قيمة عددية هي رقم 

المحرف الذي وجد فيه هذه من الوجه الأول وهنا ترجع قيمة واحدة 

وهذه الدالة تم تطوير ها بعد أن كان معظم المبرمجين قد قدموا حلولا لها فمن سعادتنا أنهم أوجدها 


#1 c2¥ InStr [String As String, Stinga ûs String, [Compare ûs Microsoft WisualBasic.CompateM ethod = MicrosofLYisualB asic. ComparaMethod.Binary]] 
Stringl: Strihg e#preszioh being searched. 


أما الشكل الآخر فهو تدخل رقم تحدد فيه المكان الذي ستبدأ منه البحث وهنا سترجع كل قيمة 

جديدة وتشبه هذه العملية عملية البحث عن التالي في معظم البرامج 

@ Aol 2¥ Int (Start 4s Integer. String] 4s String, Stringê As String. [Compare 4s Microsoft VisualB asic. CompareMethad = MicrasoltYisualB asic. CompareMe 
Start: Humeris ekpression that sels the starting position far each search. IF amitled, search begins al he first character position, The start index l8. | based. 


وهذه أمثلة عليها 
ضف آداۃ نص 0×1(ا٤×۲e‏ 
DimfAs SELIG‏ 
الحرف التي أجث عند" "ع" ك ع 
TextBok.SeletionStart=StringsInSt{fTextBoXk.Texktf,‏ 
هتا حددتا فيه هن أن نسنحةا التجدنة" Copa #êMêè EA 6d. Tex)‏ 
TextBok.SelectionLength=Lerff)‏ 


(InStrRev) ûl 
فهذه الدالة نفس الدالة السابقة إذا كانت قيمة 8)۲1 ولكنها تأتي بعملية البحث من آخر‎ 
ه6 تشبه عملية البحث من الأسفل إلا الأعلى‎ ٣=-1 السلسلة إلى أولها إذا كانت‎ 


MsgBoXStringsInStrRetmMhmal, "m",1))'1I 
MsgBox (Strings. InStrRev ("mhmad", "m",-1))'3 


(LTrim , Trim , Trin) Jاgدll‎ 


هذه الدوال جميعها تعمل العمل نفسه ولكن مع فرق في نوع تنسيقها وهي حزف الفراغات من أي 
فالدالة ذ٣۲[‏ تحذف الفراغات من يسار السلسلة النصية أما الدالة R٣‏ فتحذف الفراغات 
من يمين السلسلة النصية أما الدالة صز فتحذف الفراغات من يمين ويسار السلسة النصية 

أّما الفراغات ضمن السلسلة فلن تحذف لانها ثأخذ على أنها محار ف خاصة بالسلسلة. 

مع العلم أن الدالة الثالثة تنتج باجتماع الدالتين الأولى والثانية. 


oo 


Private SubForh PaintByValsenderAs ObjecftByVale 
AsSystem.Windows.Forms.PaintEventArgs) Handles 
MyBasePaint 

DimSAs String= " "لسلام عليكم‎ 

DimFAs String= d# الحمد‎ 1 

DimNAs String= " لا إله إلا الله‎ ٣ 
e.Graphics.DrawString (Strings. TrimS),MeFont, 
BrushesBlue191D 

e.Graphics.DrawString (Strings.RTrim (F),MeFont, 
BrushesGreepnlP930 

e.Graphics.DrawString ŞtringsTrim (N) ,MeFont, 
BrushesReQgd1 959 


"دة الكو انع تمده اتان ع 11ع 
"جرة كادة التر اتخ هن دون قور اال خذاق افر ا عاك ستحد 
الفرق 
ERG. SUB‏ 


(LCase_, ÛCase) الدالتين‎ 


لهذه الدالتين عملين متعاكسين وخاصتين باللغة اللاتينية أي نحن كعرف فلا نفع لهما في لغتنا 
فالدالة موه[ تقوم بجعل جميع حروف السلسلة النصية لتنسيق الأحرف الصغيرة(ه) أما الدالة 
16 تقوم بجعل جميع حروف السلسلة النصية لتنسيق الأحرف الكبير ة(۸) 


DimSAs String= "Muohamad Apd AlNaseer" 
e.Graphics.DrawString (Strings. LCase (S),MeFont, 
Brushes.Blue, 1910 
e.Graphics.DrawString (Strings. UCase (S),MeFont, 
BrushesGreepnlP93D 

ê BERE‏ الكو ايع اتشحة النتاتع' 

جرت اة التو اي حن حورن كو اك حتف الفر اقات ستحد 
الفرق 


الدالة (وءا) 


وتقوم هذه الدالة بإرجاع عدد محارف السلسلة النصية فإذا كانت السلسلة النصية تحوي محرف 
واحد (م) فحينها ترجع القيمة ۱ 

"الصبر مفتاح العمل DimSAs Str1۸9=‏ 

e.Graphics.DrawString (Strings.Len (S),MeFont, 

BrushesBlue191D 


(Left, Right) jيتlدلا‎ 


نعم لهذه الدالتين عملان رائعان فهما تقومان بنسخ عدد محدد من المحارف إما من يسار 
السلسلة النصية (۴۲ع.]) أو من يمين السلسلة النصية (٤إعنRQ)‏ 


°٦ 


وشکلهما 
"عدد المحارف من يسار السلسلة ,"اlلسlلسلة‏ انلنصıية"( Strings.ILeft‏ 
(لتي تريد نسخها 
عدد الممحارف من يمين السلسلة ","لسلسلة الilصıuı( Strings. Right‏ 
(لتي تريد نسخها 


وفي حال أنه تم وأآدخله عدد محارف أطول من السلسلة ستعيد لك 
قيمة تعادل السلسلة نفسها دون إضافة أي فراغ 

مد عبد الناصر خطيكل DimSAs S۲1١9=‏ 

e.GraphicsDrawStringStringsRightS, 4) ,MeFont, 

BrushesBlue191D 


e.GraphicsDrawStringStringsLeft{S, 4), MeFont, 
BrushesBlue491D 


(LSef RSet) jيتlدلا‎ 


إن هذه الدالتين من الجديد الذي جاء به هذا الإصدار ولهما نفس الشكل لدالتين السابقتين 
وتعطيان نفس النتيجة إلى أن يصبح عدد المحارف المراد نسخها أطول من السلسلة النصية 
فحينها تقوم ٤ء1‏ بتوليد فراغات على يسار السلسلة النصية (فراغ لكل محرف غير موجود) 
او کو کر ت ار غات فلي من افلا ان و اء مو کر و 


"لسلام عليكم ورجمت الله وبركاتلا DimSAs Str1in,9=‏ 
على يسار السلسلة' )50 MsgBoXStringSLSe(S,‏ 

على بين السلسلة ' )50 MsgBoXStringsRSe(S,‏ 

' أما في حال عدد المحارف أصغر من السلسلة تكون نفس 
نتان الق اك 

' left 

قل ناز السلسكة"( 5;57 158 £15308 'MS8©%S‏ 

'MSGBORS E1110 98S8 5,5(7 قلي من اة‎ 


(Space) الدالة‎ 


إن هذه الدالة كانت موجودة بالإصدار السادس وكانت وظيفتها توليد عدد محدد(أنت تدخله) من 
الفراغات 
DimNAs String= lak‏ 
kطيdh DimLlLAs String=‏ 


الكلام ملتصق' )1 + MsgBox (N‏ 
الكلام غير ملتصق ' MsgBoXN+Stri1NgSS6AC¢3) +L)‏ 


(FormatCurrency) الدالة‎ 


o۷ 


هذه الدالة من دوال تنسيق الأرقام لتحولها إلى عملة محلية موجودة في إعدادات الإقليمية في 

جهازك لقد أرفقت صورة عليها وتستطيع من خلال الوسطاء الخاصة بها التحكم بعدد الأرقام 

بعد الفاصلة لتعبر عن أجزاء العملة وتحدد إذا كنت تريد تقسم الأعداد إلى ثلاث خانات وتقوم 

بإظهار العملة التي تتعامل بها دولتك 

وال 
MsgBoXStringsFormatCurrenc¥30092,,,TriStateTrue)‏ 


الوسيط الثاني يعبر عن عدد الأرقام التي ستظهر بعد الفاصلة 
الوسيط الأخير يتحكم في فواصل التجميع لمرتبة الألوف 


(FormatDateTime) hl 


إذا كان لتنسيق العملة دالة فلتاريخ وللوقت دالة أيضا ولكن هذه الدالة أقرب للفهم من سابقتها إذ 
تدعم ه أشكال من التنسيق 
التاريخ انعادي---- General Date‏ 
التاريخ الطويل مع ذكر اسم الشهر Longdate------‏ 
الوقت الطويل Longtime------‏ 
التاريخ القصير ----- Shortdate‏ 
الوقت القصير Shorttime------‏ 
ریا ری ای تس ت اکن کل وا عا ا ت ا ا 
رهذہ مال لكل الحالات الى بتر تى حذرةا 


MsgBoXStringsFormatDateTim¢NoyFiX5 *RnNd) ) ) ) 


(FormatNumber) lll 


تقوم هذه الدالة بتنسيق الأعداد بين إظهار القيم بعد الفاصلة أو بين تقريب العدد كما هو الحال 
ک 

وتحدد من خلالها ظهور تجميع الفئات العددية بفواصل ونفس الوسطاء في دالة تنسيق الوقت 
جهازك تشبه كثير تنسيق العملة ولكن بدون رمز العمل 


(FormatPercent) ll 


ما هذه الدالة فهي لتجميع لإعطاء الأعداد النسبة المئوية حيث الرقم ١‏ يعطي %٠٠١‏ 


MsgBox (Strings.FormatPercat{1, 0) ) 


ادال )tځForma(‏ 


o۸ 


وتركتها لآخر الدوال الثالثة حتى أقول لك إنها تعطي عمل الدوال الأربعة السابقة فإذا كنت من 

مبرمجين الإصدارات السابقة فحينها ستعرف أنهم جزئوها حتى لا يضيع المستخدم بين كتابة 
السنظاء 

Dim MyDateTime As Date=#1/27/2001 5:04:23PH 

Dim MyStr As String 

ستعود هذه القيمة بوقت النظام أي وقت طويل' 

MyStr = Format (Now(), "Long Time") 

تاريخ طويل' 

MyStr = Format (Now (), "Long Date") 


الحصول على أجزاء من التنسيقات كما هو الجحال' 
MyStr = Format (Now (), "D")‏ 

عملية التنسيق على الوقت المخزن' 

MySr=FormatMyDateTime"h:m:s™") NISTA2S-S 
MyStr=Forma{tMyDateTime"himmss tt) TTOD:O4:23 


PM". 
MyStr = Format (MyDateTime, "dddd, MMM d yyyy") 1 
"Saturday, 


'Jan27 2001. 
MyStr=Forma{tMyDateTime"HHmms 8 ) TITOA4:23 
MyStr = Format{4 ' "283. 

' Userdefined numeric formats. 
MyStr=Forma{5459.4"#F###0.00) '"5,459.40. 
MyStr=Forma{(334. 9"#FF#0.00) "334,90. 
MyStr=Format5, "0.00%3) ' "500.00. 


د آکر مکان غل ذلك 
وهذه الصورة أرجو منك أن تفهمها لتفهم الدوال الخامسة السابقة 


الخبارات الإفليمية | لات | خيارات متشدمة | 
ماپس ونسیقات 
يلر هذا الخبار في كيابة نيق بعض البرامج لرشام والعملات وانواريخ 
وااواث. 
حدد عضرا لمطافة لفضيلائه آي انق نوف 'الخصيص' لاختار الللسيغاث الخاصة 
: 1 ۰ 


العوبية [الدسعردية) 


TPTCEOTYAA رکم‎ 


GTTETT 
|] REA وفث:‎ 
81¥ نارګ ضير‎ 


ارب بخ طويل: ‏ دو ال 2 


(GetChar) lll 


°۹ 


إنها من الجديد المضاف فهي ترجع حرف من سلسلة تعين أنت رقمه فمثلا كلمة( فيجوال)هي 


((فيجوال"» 


MsgBox (Strings.GetChar ("YT 


الفائدة منها أنت تحدده فإذا كنت تريد على سبيل المثال أنت خزنت كلمة السر في سلسلة نصية 
وکان مکانها هو ۳و ٥و‏ ٦و۷و۸‏ عن طريقها ترجع هذه المحارف 


(Mid) الدالة‎ 


ق ا ا ا کر ا ا ا ی کی لی 


وإليك مثال سيكفيك يإذن الله 


السلسلة الي سنجري DimsNameAs String= "Visual Basic"'‏ 
قملية اقتطاع علدها 
واا "الق سنددا مته الاقتطاع ' DimfECountÃAS Sho #Ê‏ 
دق افا رف الى سنتف تطعه ا ' DimFlenAs SHOE E=T‏ 
ForfCount=1 To 12‏ 
"تابع الكتابة من أجل رسم النص المقتطع 
MeCreateGraphics.DrawString (Strings.Mid (sName, fCount,‏ 
Flen),MeFonftBrushesBlug1Q9fCount*10‏ 
Next‏ 
lد4İ (StrReverse)‏ 


وهذه الدالة من الدوال الغريية الاستخدام فهي تقوم بقلب السلسلة النصية بالعكس آي Learn‏ 
تساوي عندها [مهإم ما عليك إلا أن تدخل المتغير النصي فيها لترى تحويلها وهذا الكود الذي 


يعمل عملها 


things neghtive but 


(StrComp) lil 


DimSELoadAs String= "Do not Any 
In job " 

DimfReAs SEEING 

ERe = "™" 

Fora=1 Tolen (SELoad) 


c=MidSELoaga, 1) 
b=StringsRight{c, 1) 
fRe= pb & fRe 
Next 

MsgBox (fRe) ' 


E EES االكود الذي‎ 


MsgBox (Strings.StrReverse (SELoOad) ) ' 


لم يتم التغير عليها في إصدار النت ولكنها من دوال المقارنة فهي تعود بثلاث قيم ١و٠و-٠‏ 
فهي تقوم بالمقارنة بين متغيران نصيان فعندما يكون الأول أكبر من الثاني فتعطي قيمة أكبر 
والصفر لتساويهم و-١‏ عندما یکون أصعغر 
أما الفرق بين المقارنة بالنسبة لقيمة النصوص بالطريقتين نصيا أو ثنائي فسوف تراه عندما 
تكون قارنة بين سلسلتين متساويتن ولكن إحداهم أحرفها كبيرة والإخرى أحرفها صغيرة 
فعملية المقارنة من النوع 
CompareMethod. Text‏ 

فترجع نتيجة عملية المقارنة بعد تجاهل الفرق بين الأحرف الصغيرة والكبيرة 

CompareMethod.Binary 


فهذا الخيار لن يتساوى بين قيم الأس كي لكل محرف أي الأحرف الكبيرة لن تستوي الصغيرة 
وفي حال إتباعه هذه الطريقة في كلمة المرور فسوف تجد مئات الكلمات أمامك 


MsgBox (Strings.StrComp ("vb.net", "VB.NET", 
CompareMethod. Text) ) ' ٠ النتيجة‎ 
MsgBox (Strings.StrComp ("vb.net", "VB.NET", 

النتيجة ١‏ أي السلسة الأولى İفٹکبJر CompareMethod. Binary))'‏ 


(StrConv) llدdا‎ 


ولعل دور عملية التحويل لها مكان ولكن من نواحي عدة فمثلا لنحول رموز اللغة الصينية 
لفلف لي رم وه الاعلة ركن الا ال رها اة ا اة رة 
O E RR RT O DT TT TOT‏ 
ما عليك إلا بإدخال رمز التحويل إليها وتراه وهذه أمثلة تجيبك عن بعض الإطروحات 


DimSAs String= "all year and you are very good" 
e.Graphics.DrawString (Strings.StrConv (S, 
VbStrConv.LowerCase),MeronftBrushesBlue1910 

تصغر السلسلة التصتة إلا أخرف ضغدرة' 

e.Graphics.DrawString (Strings.StrConv (S, 
VbSrConv.ProperCase),MeFonfktBrushesGreepn1l93D 

بداية كل عة جرف كبر" 


(StrDup) Alla 


هذه الدالة ليست جديدة فهي جاءت لتحل محل الدالة $عمع)؟ فكما تعلم فعندما قام صانعوا 
الإصدار الجديد طريق تسريع الترجمة $ قاموا ولكن بقي شيء واحد أن معظم الدوال نفعت 
معها عملية فك علامة السحرية $ ولكن الدالة $عماع)؟ أنت تعرف فعندما ألغوها تحولت لتعليمة 
مفادها أن المتغير هو قيمة نصية 

Dim S As String 
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ومن هنا فكروا بإيجاد لها مكان فكان هو اختصار لمعناها الحقيقي مں ولا أريد التفصيل 
فوظيفة هذه الدالة تكرار محرف ما عدد من المرات أنت تحدده فكان لها أمجادها في الإصدار 
القديم وهذا مثال للاصدار القديم علیھا عندما کانت String$‏ 


Private Declare FunctionGetVolumeInformationLib 
"Kerne3B2 Alias "GetVolumeInformationA" RyVal 
1pRootPathNameAs StringByVallpVolumeNameBufferAs 
StringByValnVolumeNameSizeAs Long 
1pVolumeSerialNumberAs Long lpMaximumComponentLengthAs 
Long lpFileSystemFlagsAs LongByVal 
1pFileSystemNameBufferAs StringByVal 
nFileSystemNameSizeAs LonyAs Long 

Private SubForm_ Load () 


DimSeralAs Long VNameAs String FSNameAs String 

VName =String (255Ch§ (0) ) 

FSName =String (255Ch§ (0) ) 

GetVolumeInformation"C\'" ,VName255Seria}]0,0, 
FSName255 

VName=Lef$§ (VNameInStk1 , VNameCh$ (0) ) - 

1( 

FSName=Lef$ (FSNameInSt£1, FSNameCh§ (0) ) - 1) 

MsgBox"The Volume name of C\ is '"+ VName +"', 
the File system name of C\ is '"+ FSName +"' and the 
serial number of C\ is '"+ Trim(Str$ (Serial)) +"'! 
vbInformation + vbOKOnly 
End Sub 


ولكن وضعت هذا المثال لأنك لن تستطيع إحضاره في لغتنا الجديدة لماذا لا أعرف هل لأنه يأخذ 
بطريقة مغايرة فقد تم إلغاء أو منع العشرات من دوال 

1 أي من أن تعمل وذلك لتقليل مستوى لغتك من العبث بجهاز المستخدم 

وتم وضعها في أصناف أخرى شبيهة بالدوال 


e.Graphics.DrawString§tringsStrDupf5, "m")MeFront, 
Brushes8B1u¢19010' تصغير السلسلة النصية إلا أحرف صغيرة‎ 


(Split) All 


سأبدا بمدحها فهي دالة رائعة الإستخدام تفيد بحل معادلات الحساب وغير من مجموعات التجزئة 
والفائدة مهنا وفيرة إذا أحسنت الإستخدام... 
وظيفتها تعود بمصفوفة تحوي أجزاء سلسلة بعد إدخال عامل التباعد بين كل قيمة فإليك متال 
نظري 

"السلام علیكم ورحمت الله وڊرکlٿ"= Dim Fname As String‏ 
إن هذه العبارة تحوي على سبعة أجزاء يفصل بينها فراغ وجزئين إذا كان الفاصل هو( س) 
وهكذا ولكن كيف سوف أقوم بتعريف المصفوفة إليك الطريقة نسند متغير ديناميكي أولا دون 
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تخبرك عنها 

DimFnameAs Str1in19= "لسلام عليكم و رحمت الله و بركاتلا‎ 
DimSplit_Fname ()As String= Strings.Split (Fname) 
DimE LenSplit_FngeAs Long 
ForELenSplitFname=0 T9 
Information. UBound (Split _Fname) 

MsgBox (Split _ Fname (E LenSplit_ Fname) ) 
Nex 


طبعا تأكد أيضا نستطيع جعل الفاصل نفس الحرف ومثلا أكثر من مرة أي ** صحيح أنا قلت 
لك أن لها فوائد في حل معادلات الرياضيات المكتوبة فإلك طريقة بسيطة 
أولا أنشئ صندوق إدخال وامنع المستخدم من إدخال غير الأعداد وفق قيم الأسكي ومن ثم هذه 
طريقة صغيرة وسأضع مثال عليها 

7 3000+58252+44954+825448+96357+852 
هل عرفت ماذا سنفعل أولا سوف نجزئ هذه السلسلة إلا مصفوفة باستخدام علامة "+" معادل 
التفريق ومن تم نحولها إلا قيم عددية عن طريق الدالة 1ه وبعد ذلك نجمعها 
وتذكر المصفوفة ذات البعد الواحد 

DimFnameAs String= 


"3000+58252+44954+825448+96357+852417 

DimSplit_Fname ()As Strihg= Strings. SpLLE (EFname; "F") 
DimE LenSplit_ FnameAs Long 

Dim az<ıةill‎ As Long 


Fo ELenSplitFname=0 To 
Information. UBound (Split_ Fname) 
النتيجة = النتيجة‎ + 

Val (Split_Fname (E_LenSplit Fname) ) 
Next 

MsgBox 4qzıةil)‎ 


الدالة («زهل) 


فلهذه الدالة عمل عكسي فهي تجمع المصفوفات وفق عملية إضافة أي معامل التفريق بينهاء أنت 
ومعامل التفريق في هذا المثال هو * 
استتمر".ء "اللغة"ء "يكل" "{ DimFname ()As StrIing=‏ 
[""طاةة 
DimJoin FnameAs String= Strings.Join (Fname, "*")‏ 
استثٹمر*اlلlلغة*بJa*طlقةتlq MsgBox (Join Fname)'‏ 


(Replace) ll 
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أجزم أن رأيت هذه الدالة في كل من برامج معالجة النصوص فحين تريد البحث سيظهر لك 
خيار هل تريد الاستبدال بقيم اخرى وفي لغتنا تصور أنك كتبت أكواد في برنامجك وقد كنت 
أسميت أحد الأدوات اسم ما فأردت تغيره هل ستعيد كتابة كل الأكود ولكنهم أضافوه أمرا في 

القيمة التي نبحث ,السلسلة النصية التي سنجري عليها عملية الاستبدReplace(JI Strings.‏ 


رقم المحرف الذي سنبداً منه , القيمة التي سنستبدلها بكل قيمة وجدناها,عنها بالسلسلة 
(نوع عملية المقارنة,عدد مرات الاستبدال التي سنجريها, البحث 


عملیتو المقارنة: 
8i"a۷ستكون‏ تنائيا أي المحرف( ۾) سيختلف عن المحرف (۸) مما سيؤدي إلا عدم إدخاله 
في عملية الاستبدال 


)× 1ستكون العملية مقارنة نصيا أي ه=۸ 


MsgBox (Strings.Replace ("All People love Vbnet", "e", "x", 
192,CompareMethodTex}) 


(Filter) دن‎ 


بقيت محتارا في وصف هذه الدالة هل هي من دوال التنسيق أم من دوال البحث فتركت وصف 
اسمها حتى ترى نتائج عملها فهي تعود بقيم من مصفوفة نصية تکون من اجزائها فمثلا 

كلمة عصهم؟ هي كلمة وقيمة المراد إيجادها هي م6 من المأكد أن هذه القيمة تكون موجودة في 
أول السلسلة لذلك سيرجع الكلمة nam‏ كلها لأنه وجدها فيه 

وسیطها مل ں]ءہ] ذو القيمتين فاحذر منه لأنه إن كان يسوي م۴۵1 فإنه سيضيف كل نظير 
Matc1‏ له نفس عدد المحارف إلا مصفوفة التحويل وإلا فن يشتمل التنظير على قيم ذات نفس 
عدد المحارف 

والوسيط الأخير وهو نوع المقارنة فقد تم شرحه 

أي هذا لتابح يبحث في مصفوفة ليعيد مصفوفة تحوي نظائر لنظير Match‏ الذي آدخلناه وهذا 


مثال عليه 
DimmyStringg$4) As SEF ITI‏ 
myStringg0) = TLearf‏ 
myStringg1) = TS‏ 
myStringg42) = End‏ 
myStringg$3) = Rnd‏ 
myStrngg$4) = Yt‏ 


DimrAs SHOFE 

DimsubStrings ()As SEE1ING=. EILLIEEE (MYSEELAGTS, TEN"; 
False, CompareMethod. Text) 

"Include Value=false 


' اتاك وغار تيمتة إل‎ E 
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Forr=0 ToUBound (subStrings) 
MsgBox (subStrings (r) ) 
Next 


ستجد أن هذه الدالة ليست من دوال البحث ألمحرفي ولكنها تقوم بإيجاد قيم نظيرة لقيمة أردت 
البحث عنها ولم تجدها في سلسلتك وفي نهاية هذا الفصل إذا وجدت نفسك لم تفهم شيء فراجع 
ال ي هن اط الا تكم ور احع الش قات لات ا لے تا ر ل تتم ت 
فلن تفهم هذه الدوال التي تحتوي على وسطاء من المصفوفات 


دوال الملفات والجلدات 
File System‏ 


سنأخذ في هذا القسم كيفية التعامل مع الملفات بالطريقة التقليدية إذ أن تم دعم 
الفيجوال نت بطرق أخرى لن أخوض فيها 


File Stream Jli 
إذ سنأخذ نصيبا من وفير من التعامل مع الملفات‎ 


° 

التوابع الأساسية ولكن السهولة في تقفي آثر الأخطاء أصبح أسهل والحال هنا نفسه 
کے القراءة والكتابة من وإلى الملفات 

نمثلا هذه الطريقة المتبعة في فت الملفات 


Open "file.text" For binary as lock Write #1 


FileSystem.FileOpen (1," Filtex ",OpenMode .BinarJOpenAccess .Write) 


طبعا لا أتكلم عن موجه الأوامر Cm‏ أو 0 أقصد لن أشرح أوامر الموجه ع[0یږوهC‏ 
والذي أصبحت أصناف ذات العدد ۷ ولكن واجهتني صعوبة في بادىء الأمر وهي إن ضمن 
الكتاب قصير على الأقل ولكن تراجعت وقلت سنبدأً ولكن بطريقة غير عن الطرق الأخرى 


أولا:سأشرح البدايات 
لماذا عمليات الكتابة والقراءة من الملفات عمليات مهمة ؟ 


كيف لك أن تخزن متغيرات عددية ونصية كيف لك أن تخزن إدخالات السجلات التى أدخلاها 
المستخدم ألن تحتاج إلى مكان تخزنه يمكن أن تستخدمه مرة أخرى غير الذاكرة التي ستتفرغ 
تلقائيا عند إغلاق برنامجك وليس هذا فقط إذا أردت معرفة خصائص الملفات الأخرى وقيمه 
ومكان كسر كلمات السر البسيطة وهلم جرى [ [ 

ومن هنا فقد تم أخيرا إحداث الصنف الذي يمكننا من كتابة أوامره ومن هنا نبدا.. 

ثانا : ماذا تغير 


11 


وقد تم تغير عمليات استعمال الملفات إلى هذه الطريقة 


(آلية الوصول , طريقة الفتح,اسم الملف,رقم الملف )nع‌pمFileSystem.FileO‏ 
-رقم الملف هو عدد من النوع عمه] 


-اسم الملف هو مساره كي تتمكن من الوصول إليه 
-طريقة الفتح وهي 5 طرق 
ûنûÛي OpenMode. Binary‏ 
عملية إضافة ائمتغيرGlٽت OpenMode.Append‏ 
عمليات إدخاJ‏ lلnتغڍر|ٽ OpenMode.Output‏ 
قرءة nllتغıرIٽت OpenMode.input‏ 
الوصول إلى الملفات بطريفة العشوائية عن طريق سجلlات OpenMode.Random‏ 


أما آلية الوصول فهي عبارة عن طرق قفل إما تمنع من خلالها البرامج الأخرى من الكتابة أو 
القراءة أو كلاهما 
للقر|ءةö‏ قط OpenAccess.Read()‏ 
SJتlڊة‏ قط OpenAccess. Write)‏ 
للقرIءة‏ llكliڊة')(Write OpenAccess.Read‏ 


أما طرق مشاركة الملف أثناء فتحه من برمجنا مع البرامج الأخرى 


قفل القر |ءةö‏ فتقط' OpenShare.LockRead()‏ 

قفل الكتابة فقط عن البرنامج الأخرى أثناء فتح الف OpenShare.LockWrite()'‏ 
قفل القراءة والكتابة من البرlمج‏ الۈخر“٦')( OpenShare.LockRead Write‏ 

OpenShare.Shared() dرتشم ملف‎ 


أم من أجل إغلاق الملفات فعلينا فتغلق بعبارة 

(رقم الملف الذي فتحتہ)عءہ[C٤‏ ء۴11 
واحذر أن تكتب الدالة موهإا٤‏ 
لأنها ستغلق لك نافذة البرنامج 


والآن سنبداً طرق التعامل مع نوعين من فتح الملفات 

Binary ,Random 
Binary ونبدا مع النوع‎ 
هذا النوع من الفتح وهو الفتح الثاني الذي سوف ندخل ضمنه قيم من البايت وحتى الكمية‎ 
المعلومة وطولها فمثلا أنت ستدخل القيم التالية بالترتيب‎ 
الاسم وقد أدخلت خانة تساوي من عشرة محارف ومن تم أدخلت العمر وهو من النوع ما8‎ 
وأردت حفظهما فمثلا قيمت الاسم لن تتجاوز العشرة بايتات وتحددها في صندوق النص ومادام‎ 
العمر لن يتجاوز مقدار البايت الواحد ورقم البطاقة من النوع الطويل عٍرها‎ 
فسقن الانتات هده الطر اة‎ 
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Dim Xname as string, Age as Byte ,Sirral as Long 
FileSystem.FileOpen(1,"c:\1.dat) 
FilePut(1,XKname,1) 

FilePut(1,Age,11) 

File Put(1,Sirral,12) 


وما تبقى فهي عمليات القراءة والكتابة 
.۰ *. م 
( ضفر المتقر ات رق الت )ع 
(مصفوفة المتغيرات”,رقم الملفات)ع)۷1 


6 فهي ستضيف المتغيرات متلاحقة ولكن ضمن فهرسه كي يتثنى لك إحضارها 


مثلا 
Dims, dAs SEEING‏ 
s = " mh"‏ 
d = "kh"‏ 


FileSystemFileOper1l,"c:\File.tex", OpenMode. Output) 
FileSystemFileOperf2,"c:\1FileteX, OpenModeOutpuk 
FileSystemPrint1,s,d) 

FileSystemWrit42,s,d) 

FileSystemFileClos¢1,2) 


أما هذه الصورة ستوضح الفرق بالإخراج 


Write 
mh th 
Print 


كما تعرف عندما نسحب نريد إدخال النص فلا فرق 

ولكن المبرمجين قدموا الدوال الذي نريد والتي هي أيضا خاصتين 
بlلعمılتين)Append (Output,‏ 

(PrintLine, Write Line) jıتllدJl‎ 


نستخدمها مع طريق الوصولJ (OutPut Append)‏ 
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فهما تقومان بكتابة البيانات التي تريد تخزينها ضمنهما 

٠ ام الأمر ان‎ 
FileGet) 
FilePut) 


ق ا ا ا ةا کاس ی دت 
القبيل . أحب أن أنوه أن الفيجوال بيسك ٠‏ لم يدعم المجلدات حق الدعم فقط أوجد بضعة توابع 
متل إنشاء مجلد أو حذفه وإمكانية الحصول على خصائصه ولكنه لم ينجح في تغير تلك 

ا او او ا ی کا ر ك اا اق و اة د احور 
FileSystem‏ 


lدا4l (File Len)‏ 
وهي الدالة التي تسمح لك بمعرفة حجم ملف ما أنت تحدده عبر الوسيط الخاص بها مع العلم 
أنها تحضره بالبايت وفي حال أن الملف مفتوح ترجع لك قيمة صفر .وشكل هذا التابع هو 
FileSystem.FileLen (Path As String)As Long‏ 
هو المسار الذي سوف تمرره إليها 1و٣‏ 
وهذا المثال سوف يفي في الغرض 
)(حجم _lاlk4لفlت Private Sub‏ 
& جم MsgBox (hk‏ 
FileSystem.FileLen ("cIwindowSEXPLORER. EXE") & 3mhıl3)‏ 
& "جم MsgBox (hlkLI‏ 
FileSystem.FileLen ("cXwindowS$EXPLOREREXE) /1024&‏ 
(ليلو بايت" 
"كي تعرف كم يساوي في الميغا قسم على٤ ٠٠٠٠۲‏ وهكذا على 
تقيض اللتجخو 
ERO. SUB‏ 
هذا المثال عبارة عن صندوقين متتالين سوف يحضران لك حجم 
اللحكف الخد فق و اخدتن ستلفان 


(FileDate Time) lll 
وهذا التابع من اسمه مبين ما هو . وهو من أجل معرفة تاريخ ووقت إنشاء ملف الذي تمرره‎ 
لوسيط وطبعا تاريخ الإنشاء ميلادي فقط لا يمكن تغيره وشكله‎ 
FileSystem.FileLen (Path As String) 
٣٤ط هو المسار الذي سوف تمرره إليها‎ 
وهذا المثال يوضح ذلك‎ 


MsgB80x "تاريخ ووقت إنشاء الملڭ)‎ & 
FileSystem.FileDateTime ("cXwindowSXEXPLORER. EXE") ) 


1۹ 


(File Copy) lI 


وهذه الدالة جديدة و وظيفتها نسخ ملف ولصقه في مكان آخر مع الانتباه إلى أن الملف الذي 
يجب أن ننسخه يجب أن يكون موجود ضمن المسار المحدد والمكان الذي سوف ننسخ إليه 
الملف يجب أن يكون لا يحوي ملف ذو اسم مثل الملف الذي نسخناه وأن هذه الدالة لا تنسخ إلا 


حيث أنه ul‏ ذف FileSystem.FileCopy (Source As String,Destination As String)‏ 
هذا الوسيط يعبر عن المسار الهدف الذي نريد أن ننسخ إليه الملف $0۲٠‏ المراد نسخه 
Destination‏ 


وهذا المثال التالي يوضح عمل ذلك الملف 


FileSystemFileCop¥E: \WindowSEXPLOREREXE, 
"d:\Mhdat) 


)K11( الدالة‎ 


وهذه الدالة من أيام البيسك الأولى وهي ومعناها أن اقتل أو احذف وهي كذلك لحذف الملف 
الممرر إليها ولكن يجب التأكد من المسار والشرط الآخر أن لا يكون الملف وضعه للقراءة فقط 
أو ملف نظام أو أي شئ من ذاك القبيل لأنها لا تستطيع حذفه وأحد ميزاتها الجيدة وهي أننا 
نستطيع حذف مجموعة ملفات في آن واحد وشكلها بسيط وهذا الكود يوضح عملها 
On ErFOrF RéSümê Next‏ 
FileSystem.Kill ("cIWindowšRecenk*.*")‏ 
'FileSystem.Kill ("c:\windowšlo.sys")‏ 


اة (Dir)‏ 
وهذه الدالة مفيدة من أجل البحث عن ملف معين أو ومجلد نستطيع تعيين خصائص للبحث عنه 
وشكله التالي . 
FileSystem.Dir (PathName,Attribtes )‏ 
هذا الوسيط لتحديد إسم الملف المراد البحث عنه6eصPathNa‏ 
من أجل تحديد نوع البحث عنه وتقسم5 Atri bte‏ 
.....eVbNormal!....=0اد„‏ 
bP Hidden...=2......‏ VNخفي‏ 
Physi... ......‏ ملف نظام 
۷0u 08 ...-.....‏ N/Bبتحديد‏ هذه الخاصية يتم إهمال كافة القيمة الإخرى 
....nN/bDirectory..=16جلد‏ 
Archive...=32....‏ ybأرشيف‏ 
Read On|...‏ h/للقراءة‏ فقط 


وتمكننا هذه الدالة من البحث على مجلد إذا حددنا الوسيط الثانى ٠١‏ وهكذا من أجل البحث عنه 
مع ملاحظة إذا أردنا البحث عن مجموعة ملفات حققت شرط الإدخال فتستطيع الدالة أن تعيدهم 
كلهم بجعلها وهذا مثال لذلك 

Private SubSubSeark () 


DimAdirAs STELLAR 

DimAfiledirAs SEEING 

Adir = FileSystem.Dir ("c\windows", vbDirectory) 
IFAQdir = ""ThenMsgBox (" ("لا يوجد جلد نظام‎ 
REECE EEEEEEECEEEEEEUEOEEEEEREEEEEUDEREDRETET 

۲ 


خيك مل زز غلامة التغجب آي حرف 
Afiledir = FileSystem. Dr ("cI\windowš?222.*")‏ 
Do WhileAfiledir <> '""‏ 
Print (Afiledir)‏ 
هiه‏ ضرورية Afiledir = FileSystem. DİiF'‏ 
LOOP‏ 
ENG SUB‏ 


(GetAt' ادل‎ 


وفك لذ اة من آل الخضول على حاتف الفلت المخة ار الفح مشن الف اة فقط أو مخف 
أو ملف نظام أو ما شابه ذلك وتعيد ذلك رقميا مما يتطلب ذلك أكواد من أجل معالجة وهذا مما 
يجعل الدلة الخاصة لحذف الملفات تساعده إذا ما حدث خطأ وشكلها بسيط فقط مرر مسار الملف 
الذي تريد أن تعرف خصائصه ويعيبها أنها في حال الملف يملك خاصتين تقوم بجمعهم معا 
ولتفادي ذلك نستخدم العبارة الشرطية والثوابت وهذا مثال على ذلك 

MsgBox (FileSystem. GetAttr ("cYBOOTSECT. DOS") ) 


(SetAttr) لدان‎ 


ب ا فك اسا روغ ا قم كن ي ع الا اف المد من حه ار اف 
أ ملت نظا وهي مفة و امت دعم المجدات ظلى غرار السا مها سمخ دائرل أنه 


FileSystem.SetAttr "c! mh.exe", Fileattribute. vb Volume - 
FileAttribute. vVbReadOnly 

FileSystem.SetAttr "c1" , FileAttribute. System 

حيث لا تعمل إلا إذا قمنا بطرح خاصية من خواصها أو أكثر ' 

End Sub 


(MKDir) I 


۷1 


وهذه الدالة وظيفتها إنشاء مجلد في مسار نمرره لها ويجب الانتباه إلى أن يجب التأكد من المسار 
الأمر نستخدم الدالة البحث وهذا مثال يوضح ذلك 

Private SubSubSearch () 

DimaFolderAs SEEING 

aFolder = FileSystem.Dir ("cIMhAb", vbDirectory)' oi 

السطر من أجل اليحث عن المجله قي المسار اتال 

IfaFolder = ""Then 

FileSystem.MkDir ("cXMhAb") 

Else 

("يوجد مجلد يحوي نفس الإسم في هذا المسار") MsgBox‏ 

ENG: LE 

ERY. SUD 


(RmDir) lll 
وهذه الدالة عكس الدالة السابقة بالتمام فهي تقوم بحذف المجلد الممرر إليه من فهرسه ولكنها‎ 
تذكر يجب عدم الأخطاء في تحديد مسار المجلد ويجب أن يكون المجلد موجود وبس إلها حدة‎ 
شغلة حلوة أنها تستطيع حذف المجلد مهما كان خصائصه (للقراءة فقط,مخفي.أرشيف) مما‎ 
يسهل علينا مهمة العناء ولكن لا يمكن حذف مجلد يعمل من داخله أي ملف أو برنامج وهذا‎ 
التمرين سيفي في الغرض إنشاء الله‎ 

FileSystem. rmDir ("c\Windows™") حذف مجلد النظاذؤ‎ 


دن4 (ChDrive)‏ 
کی کے فن اتر 3 نا ب عد سل رابك طا کرم ت الان اي 
ل ا ر ی ا ی اا کے کو اقا ق رت ا مد ا ا 
إن برنامج يعمل من السواقة الموجود فيه ولكن هذه إذا أنت أردت أن يعمل يشغل عدة برامج 

نااك سوه تكب السار وكا كل ت بت ةة أخطاء ركن هذه الال رال بعذها ترد 
فر ھا ناکر رها غك الا کا سے افر تاح عمل ار القن فرت کج ى فاا 
الثانية لتعلقهم بها وطبعا عندما تحدد اسم السواقة عليها أن تكون موجودة 


(ChDir) دن4‎ 

أما هذه الدالة فهي متمة للسابقة وتقوم بتحديد المسار الذي يلي إسم السواقة ويجب التنويه أن هذه 
الدالة لا تعمل لمفردها إذا ينبغي أولا تحديد إسم السواقة ومع العلم أنه هذه التعليمة تشبه تعليمة 
Cd‏ 

الخاصة بالدوس ولكنها لاتختصر متلها إذا يجب عليك كتابة المسار كاملا وهذا مثال يوضح 
عمل الدالتين السابقتين 


Private SubChPro () 
FileSystem.ChDrive ("cX") 
FileSystem.ChDir ("cXIwindows"™) 


V۲ 


iتiغJai Interaction. Shell ("SCANDSKW.EXE", vbNormalF0OCUS)'‏ 
تفحص الأقراص فقط كتبنا إسه 

اتور افه دنك شات هن ارامح تكم مةه الحو الن سوف 

ترئر قلف النكثر من كتابة الخسان و آأنك تمتطيم تعر الحسار 
الأساسي بهما 

ERN Sub 


(CurDir) لدان‎ 


رھ دان فر دن جس ا إا توان اسار الاي اال رر ا روط 
ويعودون بابس الرافة لهذا المسار الذي تم تخذبنة ضسكهم ولكن لا يغيران اليل أو السواقة 
الخال المتال الال ي الت ك 
واعلم أن هذه الدالة لا تحل محل الدالة طاهم.مم۸ في الاصدار السادس فلذلك عملت 
مايكروسوفت على وضع üSeڊة Microsoft. VisualBasic.Compati bility‏ 
CurDir lll ùj!‏ تتأثر في حال استخدمت أداة OpenFile‏ وتأخذ القيمة لمسار هذا الصندوق 
ومن هنا ستنشأ لديك مشكلة فإما اذا كنت لا ترید تغير المسار فاستخدم ur9iں‌C‏ 
أما الدالة 1٤ةم.‏ مم۸ فقاموا بايجاد الامر التالي بعد اضافة المكتبة المذكورة 

VB.GetPatk) 
Cu 9i وهي عملية أكثر بكثير من الدالة‎ 


MsgBox (FileSystem.CurDir) 
MsgBox (FileSystem.CurDir ("fIwindos\system") ) 'output 
FX 


(FreeFile) ll 


وهذه الدالة تقوم بتوليد أرقام للملفات المراد فتحها حتى لا يتعارض الأرقام مع بعضها ولكن ما 
دام الملف الذي تصنع لم يتجاوز مئة ميغا بايت فلن يحدث تعارض. ولكنهم خافو عليك ولمعرفة 
رقم الملف ما عليك إلا إسناد متغير عددي يسجل القيمة بدا خله إذا آلية عملها كالتالي عندما تفتح 


DimNumberFileAs Integer 

NumberFile = FileSystem.FreeFile () 
FileSystem.FileOpen (NumberFile, "cX1.txl, 
OpenMode. Binary) 

FilePut (NumberFile, "mbnkfbhkhjbk") 


(Reset) ندال‎ 


وهذه الدالة هي دالة شبيهة بتعليمة الإغلاق للملفات 

Close 

ومن دون أرقام إذا تقوم بإغلاق جميع الملفات التي تعمل من ذاك القرص التي قمت بفتح ملف 
من ملفاته وهي مفيدة وهذا مثال يوضح ذلك ولكن كلمة إغلاق غير صحيحة نسبيا 


A 


FileSystena. Reset 'تlفlملا‎ |iãlİ 
Print (1, "m1" خطأ لان الملف مففول'(‎ 


(FileA(tr) lll 


وهذه الدالة جديدة على الفيجوال إذ تعود بعد إدخال رقم الملف إليها بنوع عملية الفتح التي قمت 


لذلك فما عليك إلا كتابة رقم الملف داخلها وهذا مثال يوضح ذلك 


1 Input 

2 OutPut 
4 Random 
8 Append 
32 Binary 


FileSystemFileOperf1l, "FileteX, OpenModeBinary 


OpenAccess.Write) 


MsgboXFileSystemFileAttK1) ) 'output4 
FileSystem. Reset () 'تIفlkl غلقنا‎ 


الدالة (٥0ا)‏ 


وتعود هذه الدالة بالقيمة معينة تمثل عدد البايتات أو الأحرف التي قمنا بكتابتها أو قراءتها من 
ملف قد قمنا بفتحه وتعود بالعدد ٠‏ إذا قمنا بفتح الملف وعدم الكتابة به والرقم عندما نفتح الملف 
للقراءة ولا نقرأً منه شيئ ملاحظة: تذكر أنها تعود برقم السجل المفتوح في حال كان نوع القراءة 


أو الكتابة عشوائي وهذا المثال الكافي إنشاء الله 


FileSystemFileOpen1l, "FileteX, OpenModeBinary 
OpenAccess.Write) 


) 


س 


LemLo¢l 


LemLo¢1l) ) 'output6 


FileSystem. Reset () 'تIفlkll أ غلقنا‎ 


(LOF) lll 


LeSysi 


FilePut1,"sdfsdF) 


LeSysi 


MsgBoXF i J] 


MsgBoXF i J 


هذه الدالة تشبه الدالة التي تحضر لنا حجم الملف ولكنها هذه الدالة تحضره بعد فتحه وفائدتها 
عندما نحن نريد القراءة من ملف معين ولنفرض إدخال كل محتواه ولكننا لا نستطيع معرفة 


طوله نقوم باستخدام هذه الدالة وإليك المثال التالي يوضح لك ذلك 


V٤ 


FileSystem.FilePerf1l, "FileteX, OpenModeOutpuk 
OpenAccess.Write) 

Print1, "BGVFFD) 

MsgBoXFileSystemLOFK1) ) 
FileSystem. Reset () 'تIفlkll أ غلقنا‎ 

MsgBox (FileSystem.FileLen ("cX1.txt) ) 


(EOF) lll 
وهذه الدالة تخبرنا إذما وصل مؤشر الكتابة أو القراءة إلى آخر الملف وترجع ذلك من نوع صح‎ 
أو خطاً فإذا وصل التابع إلى آخر الملف القيمة ۱ وإذا لم يصل القيمة ۰ أو خطاً وهذا المثال‎ 
و‎ 
FileSystemFileOperf1l, "FileteX, OpenModeInpuk 
OpenAccess.Write) 
Do Unti1lKOK1) =Tru®' نjنوكکی الشرط هو أن يحضر السطور حت‎ 
وصل إلى آخر الملف‎ 
FileSystemLinelInput1) 
LOOP 


الدالة عمS)‏ 
وهذه الدالة ليس مثل الكلمة المحجوزة نفسها إن هذه الدالة فقط تعود بموقع مؤشر الكتابة أو 
القراءة ضمن الملف الحالي فأحد وظائفها أنك تريد ان ترتب قياس الفورم من طول وعرض 
وارتفاع و في ملف ثنائي ولم تعرف مواقع الكتابة بعد كل إدخال فتقوم هذه الدالة باعادتها إلبك 
وهذا يعني الموقع الذي سوف تبدأً منه القراءة أو الكتابة أكيد فهمت عليه لكنها لاتغيره وهذا 
مثال على ذلك 
FilePut(1, "MsdnMh")‏ 
موقع الكتابة التالي ھر MsgBox FileSyste.Seek(1) 'Y‏ 


(Rename) نllدنl‎ 


وأخير جاءت هذه الدالة لتلبي طلب المبرمجين بدلا من التعليمة الأساسية التي كان يجهلاها 
الكثير ليس لصعوبتها ولكن لاختفائها 

Name as 
فهي تقوم بعملية إعادة تسمية ( للملف أو المجلد) مما يسمح لنا ببناء مستعرض خاص يسمح لنا‎ 
بنسخ وإعادة تسمية الأدوات والذي ستراه في أمتلة هذا الكتاب‎ 
فهي تقوم بتغیر اسمه فقط دون تغیر مساره أي لا تستطيع نقله لسواقة أخرى بالنسبة للمجلد أما‎ 
للملف فهي تقوم بنقله للمسار الذي تراه‎ 


(SPC, 1۸8( الدالتين‎ 


وهذه الدالتين تستخدمان في من أجل عملية الإدخال من النوع ام0 للملفات النصية ولكن 
ولكن ستستغرب في كيفية عملها إذ أنك لا تدخل رقم الملف ولكن تصمدهما بجوار الملف أي هما 
قيمة تستطيع استخدامها كفراغات وأعمدة إذ أنهم تضيفان فراغات وأعمدة أثناء الكتابة وهذه 
أمثلة على كل التابعين 


FileOper1l,"c:\1.txt, OpenModeOutpu}k 
FileSystemPrint{1, "mhndsadaS, FileSystemSP{(100) 
FileSystemPrint{1,"96598465¥) 

FileClose () 


ستلاحظ إضافة الفراغات في الملف النه 


FileOper1,"c:\1.txtl, OpenModeOutpu}k 
FileSystemPrint{1, "mhmdsadaš,FileSystemTAB 
FileSystemPrint{1,"96598465¥4) 

FileClose () 


ستلاحظ إضافة مقدار عدة من الأعمدة بين البيانات المدخلة 


(FileGetObject) دة‎ 
(FilePutObject) دن4‎ 
(FileGet) ةlIدl‎ 
(FilePut) دن4‎ 


هذه الدوال لنوعين من الكتابة العشوائية والثنائية وربما يقول الشخص ما هو الفرق بين كل 
زوجین على حدا 
والجواب وهو من كلامي لم يقر به أحد إذ إن الدالتين 
Fileput,FileGet‏ 
لدعمان كل المتغيرآت المطلوبة بينما الذالثين 
FilePutObject,FileGetObject‏ 
تدعمان كل المتغيرات والمتمثلة بالنوع 
Object‏ 
وأشبه بأن يكون غرف من سيل والله أعلم ولكن إذا كانت نوع البيانات لاتهمك فاستعمل الدالتين 
المصحوبتان بالن وع زا0 


FileOperf1,"c:\1.d11l, OpenModeRandom 
FileSystemFilePutObject1, MeWidth) 
FileClosg€) 


بينما لقراءة البيانات ستجد 
DimxAs Object‏ 
FileOper1l,"c:\1.dlI, OpenModeBinary‏ 
تحجر نة لiحظ‏ ' FileSystem.F1eGetOb] ect{1, x)‏ 
تاينتهقد ارقا قيمة 
MeWidth = x‏ 


۷1 


MsgBox (x) 
FileClose () 
طبعا الحديث عن الفوائد التي لاتعد لعملية فتح الثاني والتي أعتبرها بداية الدخول نحو الكراكر‎ 
طبعا فعندما يعرف أي مستخدم يعرف أن كل ملف كان عبارة عن بايتات مصفوفة بشكل‎ 
متجاور)مع العلم أنها بكل مجازي هذه التعبيرات يفهم أن لكل ملف شكل فمثلا معظم (مترجمات‎ 
لغات البرمجة) تترك القيم النصية على نفسها يعني‎ 
۸=" "محمد‎ 
وفي أي محرر ست عشري ستجدها كالعين المقلوبة تناديك إلي بوضع اسمك مكانها‎ 
وذاك يعدو على الجميع‎ 
ولعل لم أقترب للشيء الذي أبحث عنه نعم لكل‎ 
فمثلا لنذهب لملفات الصوت أو الفيديو فلو قلت في نفسك على سبيل المثال بالمؤكد ستقول الملف‎ 
مؤلف من بايتات نعم وهذا صحيح وطبع لكل ملف منهجية تعتبر على الأقل مبدئية يعني تكون‎ 
المعلومات عن الملف متوضعة عادة في أول الملف (كما في معجم الصحاح) تخبرك عن الملف‎ 
وهذا مثال عملي لذلك‎ 


ضع هذا في منطقة التصريحات 


Private ConstSNDASYNC=&H1 
Private ConstSNDFILENAME=&4H20000 
Private Declare FunctionPlaySandLib"winmm.dll"Alias 


"PlaySoundA" RyVallpszNameAs StringByValhModuleAs 
LongByValdwFlagsAs LonYAs Long 
FunctionlfWaveRyValFileNameWaveAs SEETHY 


DimsAs Byte 
DimfAs Byte 
DimWordWaveAs SEEIRG 
IFFidNameWave = ""Then 
ERIE FUDCELON 
Else 
FileOperf1l, FileNameWavgOpenModeBinary 
Fors=9 T6 12 
FileGet1,f,s) 
WordWave = WordWave & Chr (f) 
Next 
FileCls¢1) 


IfWordWave = "WAVE"Then 
PlaySoundOpenFilê.FileNameO&, 
SND_FILENAMEOrSND ASYNC) 
ELS 
MsgBox الويف غعط من ليس الملف هذ")‎ "( 
ENG TE 
End If 
End Function 
ومن تم قم باستدعائه من أي مکان تريد‎ 
OpenFil&.Filter= "Way | *wavV 


VY 


OpenFil®&.ShowDialog) 
IfWavg¢OpenFilê“ê.FileNam#®' lia اكه .اتتابخ استدهاء يتح‎ 


7€ شلق أذة من 
ربما هذا الكود الأفضل في تشغيل ملفات الع ج۷ 


وکت ل افر عا هانک فك آن تك كالك عن طرل الف الصر ك آي مةن 
فكما يجب أن تعرف أن لكل نوع وخاصة إذا كان مشترك خوارزميات أكواد طبعا هنا الحديث 
ربما يفوق الحديث ولكن أرغب أن أعبر عن أهمية هذا القسم ولو كان بشكل مبدأي 
طبع الأمثلة كثيرة ومتعددة عن قسىم Binarydl‏ 
طبعا العمل في ملفات رهم81 أمر صعب بعض الشيء ولكن ممتع 
فمثلا هذه الخوارزمية ممكن أن تحل أزمة 
اسم المؤلف= ع)By‏ 15 
تايخ الكتابة=م)رB‏ 8 
مواليد المؤلف=م) ر86 
السيرة الذاتية للمؤلف=ع†رB‏ 500 
وعلى هذا المنوال ولكن فتقول لي طيب أحيانا يتطلب مني أن أجعل مجال النصوص محدود 
وربما سيكون المستخدم لن يدخل ٠١‏ حرف أقول استبدل كل حرف لم يكتبه المستخدم ب(*) 
على سبيل المثال: 
وربما يكون مجال النصوص غير محدود وهنا أقول من الأفضل جعل القيمة النصية المفتوحة 
في آخر الملف وعليك بها في الزيادة وإن لا بد فعليك بنمط الفواصل أن تتبع مثال على ذلك 
DimxSpAs Sting= "||| |"‏ 
محدودة غير اlلسwلسwلة‏ aمoi' Dim eمwlll As String‏ 
غير ,السلسلة همذة"' 52153 كه ١‏ الد اتية السرة ساد 


محدودة 
فإقراء الثنائية القيم استخدام فلك ضر كنف إ3" 
الان 
FileOpeNr1,"C:\MyFile.txt", OpenMode.Binary)‏ 
pwlll =Text.TextL‏ 
=X. rext‏ الذاتية السيرة 
(لذاتية السيرةö+ FilePut1, مwl¥l+ x56‏ 
FileClos¢1)‏ 
سيقول قائل وكيف أسترجعها أجيب راجع دالة ٤1م‏ بأن تجعل الوسيط الخاص لمحرف التجزئة هو "| | | |" 


(FileWidth) نة‎ 


لم تكن سوى تعليمة أساسية أما الآن فهي عبارة عن تابع يستخدم مع عمليات فتح الملفات من 
النوع(٤uم0)‏ أي الإدخال النصي فهي تحدد عدد أحرف السطر الذي تريد إدخاله 

أي ما هي القيمة التي يجب أن يتألف منها سطر الإدخال ولكن عملية الإدخال هذه ستكون 
مختلفة أي إذا كنت تريد أن يجب عليك أن تكون قيمة الإدخال النصية يجب أن تكون مساوية 


۷۸ 


ارک فا کن ك كافت فكن ااوغ القاق أقر من عرض الملف افعل 
فإنه لن يقوم بعملية القراءة من سطر والكتابة في سطر بل سيضع كل مدخل في سطر 


یعنی ٥١‏ محارف هذه يودي يجب أن تكون القيمة ۲ أو ١‏ 
FileOperf1,"c:\yyyy.txt", OpenMode.Output) ' Open file‏ 
FOF SUCCES‏ 


FileWidtK1,1D 

Printf1, "Jak) 
PELL") 
PEIHEE; T1) 
Print1,"12) 
PEIREL; LY) 
Print{tl, "1233) 
FileClos@1) 


هذه هي نتيجة التالي 


| 1212 


وإذا كنت في ريب مما قلت فنفذ هذا الكود 


(Input) ll 


استخدام هذه الدالة لعله الأرجح في حال كنت قد قمت بكتابة مصفوفة من المتغيرات وتريد 
إرجاعها 
وخاصة إذا كنت استخدمت طريقة الكتابة 
Write 4++ Print‏ 
كما تعلم بعد فتح الملفات نكتب عادة 
Write(1,5)‏ 
وكما تعلم ندخل مصفوفة من القيم 
DimNameAs SEEM — Ula‏ 
DimIDAs Integer=541645‏ 
FileOper1l,"c:\f", OpenMode. Output)‏ 
Writ@1,NamelID‏ 
FileClos@1 )‏ 


ولكن لو سألنا أنفسنا كيف سنقوم باستدعاء ذلك كله 
فكما تعلم أن دالة 

Input 
وهذا الكود المتالي لحل تلك الأزمة‎ 


DimNameAs SEELRHO 


۷۹ 


DimIDAs Integer 

FileOper1l,"c:\f", OpenMode. Input) 

فقط واخدة قيمة لاستدعاء يرجي سطر ' Input1, Nam$%‏ 
فقط و اخكدة قنفة لاستدعاء تمرجيى سطر Inputf1, 1D'‏ 
MsgBoXNamesSpac¢5) ID‏ 

FileClos@1) 


ونفس الأمر مع الدالة إدخال 
Line Input‏ 


( LineInput) ll 


استخدام هذه الدالة مقتصر على نوع واحد من طرق الفتح وهو 

Input 
أي فتح الملفات النصية وتقوم بإحضار سطر واحد فقط ومع ذلك فإنها مفيدة على كل زعم‎ 
وهذه الطريقة لسحب كل أسطر الملف المفتوح‎ 


FileOpen (1,"C:\MyFile.txt", OpenMode. Input) 
DimxAs SEEING 
Do UntilEOF (1) =True 

x=LinelInput (1) 

Msgbox (x) 


LOOP 
FileClos€¢1) 


(InputString) lll 


هذه الدالة من الجديد المستحدت في الإصدار الجديد ولكنها من الفائدة تجل محل عملية قراءة 
الدفتر أي بدلا من استخدام الكود في الدالة السابقة 


ومادام النص الذي تحمله يعبر عن متغير واحد فيمكنك حينها من إدخال النصوص الكتابية كما 
بالطريقة التالية (أقصد أن ما تم كتابته في الملف هو عبارة عن نص فقط أو رقم بشاكلة نص) 
والان ما علينا إلا معرفة حجم الملف الذي نذريد فتحه 
FileOperf1,"C:\MyFile.txt", OpenMode. Input)‏ 
DimxAs SEEING‏ 


x=InputString1, FileLlLefC:\MyFile.txt") ) 

617¥ يبقضمة قتجتة. الذئ الحلف تققل ل حال ق كليل" 

الملف فتح قبل الملف بيحجم وتغد تك 16010 الكوع من تعر تتفهتة' 
MsgBox (x)‏ 

FileClos¢1) 


الدالة (Lock‏ 
lلدllذ4 (UnLock)‏ 
هاتان الدالتان مرتبطتان مئة بالمئة وعليك استخدمهما بالشكل 
LockÛ0‏ 


Unlock 
وتقومان بعملية قفل الملف وفتحه ولكن ليس كما تظن مثل دالة‎ 
Close 
ولكن وظيفتهما وهي تأمين بعض العمليات التي تحتاج للوصول لنفس الملف المفتوح وهما‎ 
تقومان بهذه المهمة حسب ما أخبرت به مايكروسوفت‎ 
FileOperf1,"c:\ptt.txt", OpenMode.Binary) 
LOCK) 
FilBut{1, "MoreLearnForPeoplE) 
UnlockK1) 
FileClos¢1) 


۸۱ 


دوال المعلومات 
Information‏ 


(VarType) lI 

لعل القديم قد احتوى على مثيلها فهي تقوم بإرجاع نوع المتغير فمثلا لو أدخلت لهل اسم النافذة 

©(bز‌ما رجعة اهز 0ن النافذة هي من النو ع‎ me 

وهي ترجع رقم يمثل نوع المتغير فمتلا الرقم 8يعبر عن نوع المتغير و١‏ ٣ء‏ و لكن أنت غير 

مطالب بحفظه فكما تعلم الصنف المنسق له جاهز لراحتك فإنه سيحوله إلا اسم نصي مباشر 
MsgBox (Information. VarTypeN¢) 'outout9‏ 


MsgBox (Informatûn.VarTypeN¢t.ToString) 'output Object 


(VarName) 4l 
هذه الدالة نفس السابقة إلا أنها ترجع نوع المتغير نصي أي ترجع اسمه لكن اعلم أن كلا‎ 
الدالتين السابقتين منفصاتين بالأداء‎ 
MsgBox (Information. VarNameNè) 'outout Object 
MsgBox (Information. VarTypeNè.ToString) 'output Object 


ان4 (VbTypeName)‏ 
عمل هذه الدالة غريب بعض الشيء فهو يرجع متغير نصي. ويقوم بعملية مقارنة مع أي نوع 
للبيانات متلا المتغير 
DimXAs SEEING" Long‏ 

MsgBox (Information. VbTyp¥am¢X) ) "OUEOUELORG 
مابين علامات التتصيص يحول إلا نوع متغير ولعل الفائدة منه هي إيجاد كم مرة تم إيجاد هذه‎ 
الكلمات لأنواع المتغيرات فعلا سبيل المثال في صناعة برنامج محرر للفيجوال بيسك سكر يبت‎ 
فإنك أفضل من أن تدخل مئات من جمل الاختبار لأي كلمة تستطيع تغير لونها مادامت لاترجع‎ 


قيمه HM WM‏ 
(SystemTypeName) ûl‏ 
هذه الدالة جديةة على لعا وها ل ت إلا فى تاخية واكة وهي معرفة كو ع التعريف 


بالمتغيرات بالنسبة للنظام حيث تقدم لنا اسم نوع البيانات فتعيده لك بشكل النظام التابع للغة 
يعني القيمة وم[ مساوية لنوع 164 من حيث النوع الذي تم دعمه أي معظم النتائج ستكون 


AY 


هي نفسها فلا تستغرب ما عليك إلا إضافة الاسم الصحيح وستعطيك النتيجة 


DimShAs SEEINO= "SBHOEE™ 
DimDaAs String= "Date" 
DimNoAs String= "eeee" 


DimNameTypeAs SEEING 

NameType = SystemTypeName (Sh) کو‎ 
"SYSEEMINES:. 

MsgboXNameType) 

NameType = SystemTypeName (Da) TE 
"System. DateTime". 

MsgBox (NameType) 

NameType = SystemTypeName (No) ' لاشيء‎ 
MsgBox (NameType) 


(IsArray) ةlادلا‎ 


يعني ستتحقق من المتغير من أي نوع كان فإذا كان هو عبارة عن مصفوفة سترجع الأمر 
False ¥!sTrue‏ 
وبجدر الاهتمام أن نذكر فائدة غير تلك الفائدة فمثلا أنت تريد تشكيل مصفوفة لاسم شخص 
وعمره وتوالده وتريد أنه فعل تلك المصفوفة في وقت طلب الأمر تفعيل 

Dim F() AS object 
هنا سترجع قيمة له٣٣Aء| القيمة عماج۴ ولكن عندما ستفعل قيم لها سترجع لك قيم صحيحة‎ 

ReDim F(3) 

أي ستكون قيمة التحقق ں۲ 
دن4 (IsDate)‏ 


هذا معامل اختبار إذا كانت القيمة الممررة إليه تاريخ فأعطيه علامة صح بمعنى العبارة ولكن 
كم تنسيق يسمح هذا المعامل بقبوله فكثير أي مهما كانت أشكل الفوارق 
الحالات التى يقبله 
DimFAs Object ٠‏ 
F = April1 /2004‏ 


F= 1-1-2004 
F=1 \ 1 \ 2005 
F= April1l 2003 


F= "1 nov2004 
F=#1/12003¥# 


اذلف سح آلكا ان تست كا ارخ فى أحد الطرق الك رة ولكها ت خا فحت دد 
المتغير Date‏ 
llد4Û (IsNotinl‏ 


AY 


هذه الدالة أيضا من دوال الاختبار (صح // خطأ) أما هذه الدالة تختبر أي متغير من النوع 
Object‏ 
ذا کان شيء موجود أو آنه غير موجود مثلا على 
DimsAs Object‏ 
MsgBox (Information. IsNothing (s) ) 'output True‏ 


هنا نوع المتغير خاص بالنوع الكائنات 


ذ4 (Is Numeric)‏ 
هذه الدالة تختبر نوع المتغير إذا كان عدد أو لا أي قيمة عددية حتى ولو كانت ضمن علامات 
تنصيص أو من أي نوع كان 
DimsAs Object‏ 
DimfAs SEEING‏ 
f= A5458‏ 
S=548518‏ 
MsgBox (Information. IsNumeric (f) ) 'output False‏ 
وإياك أن تقرن هذه الدالة بالدالة اج۷ لأن الدالة اه۷ تم شرحها أما الدالة السابقة فهي 
ستخبرك إذا كان القيمة الممررة إليها عدد فترجع قيمة قبول ومن هنا تستطيع رفض أي قيمة 
غير ذلك 
ولعلها تفيدك في أماكن اختبار القيم 
الدllتيj (LBound, UBound)‏ 
إن لهذه الدالتين شغل قديم فهما تقدمان عملا واحد لقيمتين متعاكستين.وظيفتهما مقتصرة على 
المصفوفات فالدالة Û‏ ر LowBound رlصضژآتخا [Bou‏ فتعني أقل محدد للمصفوفة 
وأما ل صu‏ هط فهي اختصار للم 80u‏ مل وهي أعلى قيمة محدد داخل المصفوفة 
الفائدة كثيرة في إجراء العمليات على المصفوفات من جمع إلى قلب إلى إسناد ا 
المنفصلان أي آخر محدد أضفته للمصفوفة وليس له علاقة بقيمه ف 


DimKf3)As Long 
F(0) =10 
F(1) =7000 
F(2) =-500 
F(3) =6000 


عملية جمع المصفوفتان' 


DimFf3)As Long 
F(0) =10 
F(1) =7000 
F(2) =-500 
F(3) =6000 
DimCoAs Short EqualsAs Long 
ForCo =Infomation. LBound KF) To 


Information. UBound (F) 
Equals = Equals + F (Co) 
Next 
MsgBox (Equals) 


A٤ 


(Err) اة‎ 


هذه الدالة أقرب لأن تكون صنف وأظن أنها عبارة eں†‏ م فكما تعلم فإنه قد يحوي على 
توابع ضمنه على أية حال إن لهذا الكائن فوائد فهو يقدم لنا الآتي في حال وقعنا في الخطأً 
ولن أقوم بشرح عمليات تتبع الأخطاء لأن هذا الكتاب لايتطرق لذلك ولكن إليك التفاصيل 

GR. EETOF RESUME NEXE 
تذكر هذه العبارة فهي سنقوم بعملية اختبار عليها في أمتلتنا القادمة ومعناها البرمجى‎ 
ERR (في حال وقوع الخطأ اذهب إلا السطر الذي يليه ومنها فستقوم بملء التوجيه‎ 
بالمعلومات من أجل خواصه ولنبدا‎ 
Clear-' 
من المعلومات لأنه سوف يقوم حذف الأخطاء التي خزنة‎ 8٣ فهذه المنهج فسوف يفرغ الدالة‎ 
واا وان ر لك آي مار و و ا ا إا التفصيل عن الخطأ وتخزينه‎ 
حتى يتم زيادة سرعة البرنامج د بعض الشيء‎ 

Err.clear 

Description- 
كما نعلم أن يجب على كل شخص فعل فعلة غير صحيحة أن يوضحها فأيضا لكائن الخطأً‎ 
وصف يجب توضيحه ومنها جاء عمل هذه الدالة فلكل خطأً وصف ويمكنك أيضا إسناد وصف‎ 
خاص معين بالخطاً‎ 
Number-Y 
لعله كان علينا أن نبدأً بها قبل الوصف لكن لاضير فكما تعلم أنه يجب على الحوادث أوالأخطاء‎ 
أن تكون مرتبة فلذلك يجب أن تكون مفهرسة وفق دليل يخبرنا برقم الخطاً ومن أهم تلك الاشياء‎ 
بناء ما يسمى بأصناف أو سجل تسجل به أخطاء التي تحدث وترفقها مع برنامج حتى يسهل‎ 
عليك إرسال رقع برمجية تسد الخلل فلذلك أنصحك بأن تجعل جميع التوابع والمكونات في‎ 
مكتبات خارجية حتى يسهل عليك تجنب الأخطاء وإصلاحها فيما بعد‎ 

UR EEEOE GOT. TO0 

DimgAs Byte 


(دخل عمركڭ) gq = 1npUtB0x‏ 
EI Sb‏ 
NEA‏ 
"ساخطة كنك ايضا التحكع برقم الخظاً إا كنت تترقع حدوكه 
IfFErrNumber=6 Then‏ 
"أن هذا القيمة غير Err.Descripti0n = iS2‏ 
MsgBox (Err.Description)‏ 
ENQA TIE‏ 
ETE .CLéSFE (0)‏ 


(QBColor) ةllدلl‎ 

أصغي جيدا ...تغير مفهوم الألوان من أنواع الدعم الثلاثي إلى مفهوم جديد إلى ٦‏ قيم (أحمر- 

أاخضر- ازرق-- و التدرج --والإشباع -والإضاءة)فعندما ترید تنفید ذ الكود التالي 
MeBackColor=QBColorf1D‏ 

ستشاهد تسطير تحت تلك الدالة لتعبر عن خطأ لماذا أولا وحلها ثانيا؟ 


تم جمع الألون بصنف خاص أو كائن هو إ10ه٥‏ وبعد ذلك جعلوا إسناد الخصائص تابعة لتلك 


Proprety BacColor as Color 
End Property 

أي علينا تحويل تلك القيمة المنطوية تحت إطار إمعه†م!] إلى ذلك الصنف وفق تابع خاص لن 
تستطيع إضافته إلا من الشركة الأم على سيبل تحويل الإطار العام ولكن عملية التحويل مثشكلة 
بعدة أنواع وهذه هي إحدى الطرق 
ولكن عمليا هذه الدالة تحوي على ٠١‏ لون أساسي تراها في معظم البرامج البسيطة وأيضا كانت 
تدعمها لغة البيسكا القديمة أي ٠‏ يعطي أسود وهكذا 
أي (GDI)‏ 


DimfAsColorTranslator 


MeBackColor=f.FromOl4QBColof1) )‏ 
JÎلgو MeBakColor=f.FromWiA1FromO1¢4QBCo1lof2)1 jl‏ 
£ ۶£ £ نظام 
لاحظ أنه يمكن أيضا بعدة طرق أي كل طريقة ترجع قيمة بالتحويل لاإصناف الكتابة 


(RGB lll 
أرجع لشرح للدالة السابقة وافهم مقدمتها ومن ثم أرجع لها الآن فكم تعلم أن الألوان الأساسية التي‎ 
لكل قيمة ( ۸,6,8) حيث من أجل الحصول على ألوان فمثلا‎ ٠٠١ هذه القیم تتراوح بین ۰ إلى‎ 

القيم 
0 ستعطي اللون الأسود أما 255,255,255 فتعطي اللون أبيض ولم تتغير قيمتها كما 
تغيرت الآن فقد صارت مسألة الألون مدعومة أكثر وعمليا لتحول هذه قيمة هذه الدالة من النظام 
Long‏ 
لتوافق نظام أصناف الألون راقب هذا المثال الذي سيغير لك لون الفورم في كل مرة تحمل 
البرنامج لون جديد باستخدام الدالة السابقة 
بدء عة التجويل "ع0ا Dî E£ASCoO1LoOFETEa11S51a2‏ 
هله العبارة هي التي لاتسمح للفورم )( VBMath. Randomize‏ 
أن يظهر بنفس اللون في كل مرة 
MeBackColor=f.FromWiRA{4InformationRGR255*RNd)‏ 
Rnd) *2559RNnd) *125)‏ 


A٦ 


دوال‌التفاعل 
Interaction‏ 


بعيد عن التفاعلات الكيمائية والمعادلات الكتابية (اوكسجين+هدروجين=ماء) 

فأما المقصود بهذه الدوال التفاعل مع ۳عاءلرS؟۲ںهY‏ أي التفاعل مع نظامك فهي تحوي على 
تلك الأوامر التي تسمح لك بخدمات مع نظامك الجميل والتي تتعلق بأنظمة س۷100 فمنها 
ما هو مأخوذ من اللغة الأولى البيسك ومنها ما أبقي عليه ومنها الجديد وحتى ولو كان قليل 
وكعادتي أخبرك بأنها ليست من دوال ۸۴١‏ لأني سأعطي بعض الكلمات ولكني لن أشرحها 
كقيمة مقابض النوافذ 

ملاحظة : 

١-هل‏ تريد تخزين القيم النصية في مفاتيح المسجل 

هل تريد تشغيل الملفات 

٤-هل‏ تريد أن تعرف معلومات عن النظام ومنصته ونوعه والسواقة الرئيسية ونوع المعالج 
ومراحله وغيرها من المعلومات وملف النظام على ۳۲ خدمة من خدماته من دون أن تكتب دالة 


(Beep) 4l 
منها إلا من أجل لفت انتباه المستخدم‎ 

Interaction . Beep () 2 5‏ 
وكما تعلم فإن قلبي رحيم فقررت أن أعطيك كود لتستطيع من خلاله سماع آكثر من لحن ستجده 
بالأمثلة 


(InputBox) lll 


هذه الدالة منذ أو يوم وجد فيها الفيجوال كانت موجودة لماذا ؟؟ لأنها كانت تعبر عن تعليمة 
الإدخال المعروفة Wم.])‏ في لغة البيسك 
فهي تخرج لك صندوق إدخال تدخل فيه أي قيمة وتستطيع تغير خاصية العنوان وشرح عن 
النافذة وقيمة افتراضية لتعرف أن لغة المرئية أفضل من لغة العزاء الحزينة 
فنستطيع عمليا الاستفادة من الإدخالات المارقة إن صح التعبير وتستطيع اظهار مکان ظهور هذا 
الصندوق وهذا مثال سيظهر لك رسالة إدخال اسمك 
DimFNameAs SEE LG‏ 
هذه رسالة لتدخJ‏ اwmك‏ "( FName = Interaction. InNnputEB0OxX‏ 
(ياشاطر"» "رسالة إدخال"» "محمد"ء ٠١ >>)٠١‏ 


AY 


الأمور لا تحتاج إلى تعقيد فالدالة ربما ستكون مألوفة وتستطيع التحكم بقيمها لانها توجه قيمتها 
لعملية إدخالها 


(Msg&k ) lll 


فأما هذه الدالة فهي أخت الدالة >ه18ںمم!] في لغة البيسك وقد قمنا باستخدامها بشكل كثير فهي 
أكثر الدوال المستخدمة في شرح الامثلة فأما شرحها عبارة عن مثال بسيط 


,نا شرح سوف يظهر على سطح الصندوڵڭ) Ms3gB80xX‏ 

MSTBONSEYLELCEITCLCEAL % MsgBOKSLEYVLE.YesNoCanNncdel " lia 

ٍ (لمنوان الصندوق 
أما ما تبقى باللون الأازرق فهو عملية التحكم بمظهر الصندوق وكم من الازرار نريد ان يظهر 


أما هذه الطريقة فلتحكم بأزرار الصندوق بطريقة جديدة 
DimfAsMsgBoxResult‏ 


۴ = Ms٥980× عمليا هذه الدالة مفيدة من أجل إظهھار")‎ 
,"لقائق‎ MsgBoxStyleCritical + MsgBoxStyle.YesNoCancel, 
(شاشة إظهار"‎ 
Select Casef 
CaseMsgBoxResult.Cancel 
MsgBox “") 
CaseMsgBoxResult. Yes 
MsgBox ( wll )چم‎ 
CaseMsgBoxResult.No 
MsgBox (Jil J) 

End Select 


(1F) الدالة‎ 


لهذه الدالة المستحدثة من الإصدار السادس عمل جملة 1 في حال التمييز بين قيمتين وفق شرط 
IF Nu > 500 Then‏ 
True"‏ ""'لإخراج اللصي أو قيمة 
Else‏ 
۴ale"‏ "'الإخراج اللصي أو قيمة 
End if‏ 
يعني نضع الشرط أولا ووفق هذا الشرط ستظھر لنا إحدی القیم إما عں إ۲ ما۴ 
أو قيم معينة لان هذه الدالة من النوع ء٠‏ زط0 أي تقبل كل القيم بداخلها 
القيمة التي ستحملها الدالة , القيمة التي ستحملها الدالة في حال كان الشرط صحيح , الشرط )۴]] 
(في حال كان الشرط خاطئة 


A۸ 


ويمكنك التعامل مع الشرط كما تريد وبراحتك 


Dim Fals As String 
BI Ê AS: LONG 
f = InputBox ("sدgll‎ Jخدأ"(‎ 
Fals = IIf(f > 20 And f < 50, ("مقبول للوظيفة مرحليا"» "غير مقبول"‎ 
MsgBox (Fals) 
تحنب هذه الفكرة لأنها ستظهر لك القيمتان مع بعضهما‎ 

Fals = IIf(f > 300, MsgBox ("Jggıقم"(,‎ Ms980× صندوقان لكل '°(("صغير")‎ 

قيمة صندوق 


تجاهل القيمة التي سيخرجها لك محرر الدالة لوجود الخطأ فيها للسبب 
الدالة (Chosse)‏ 


نعم لهذه الدالة المضافة في الإصدار السادس وهي من أجل إختيار قيمة عبر ×ملم! من 
مصفوفة من أي نوع . فعلى سبيل المثال تصور وهي أقرب لعبارة ا SE1٤٥‏ وفق شخصية 
واحدة من وجهة نظري. اعلم أنه سيبداً العد من الرقم واحد 
DimfAs SEE‏ 
("كبير"< "nمتgسط"<«‏ "صغjر‏ " f = Inteaction.Ch00S€e(,‏ 


MsgBox (f) 
وأما بالشكل التالي أدخل أي رقم صالح في تلك المصفوفة ذات البعد الواحد‎ 
Dimf2)As SEEING 
DimhAs SEEING 
£)1( = لملا‎ 


لمبد الناصل = (0)£ 

لاطب ت (2) f‏ 

h=InteractionChoos¢1l, f) 
MsgBox (h) 


ا ا فة ها اكا هة مر مس عة ا راد فر ي ا اة 
لقيمة ×ملم] عددية من النوع المضاعف 


(SaveSetting) lll 


هذه الدالة من دوال التفاعل مع الرجستري في نظام الويندوز. حيث تقوم بحفظ قيمة في مفتاح 
وفق مكان محدد على المسار 


HKEYCURRENT USERSoftwar®SVB and VBA Program Settings 
وسيتم إنشاء فهارس التالية‎ 


وسأقوم بوضع الشرح المندرج( مشروح كل جزء فيها) 


۸٩۹ 


إسم المجلد الذي سيلي المسار الذي آأخkبرتك‏ ieنa"«‏ "( SaveSettig‏ 
"امجلد الثانوي الذي سيليه"» "إسم المفتاح"» قيمة التي سيتم 
(إضافتها للمفتاح 


فكما تعلم الدالة مقيدة شيء ما من حيث المكان التي ستظل فيه ونوع البيانات المدخلة ولكن 
السبب؟؟ 
هو آنه ستلغي الغرضية الدعائية من توابع 1م التي سمح المبرمجين والمبرمجات من التحكم 
بالرجستري والفائدة منها هي حفظ الإعدادات في الرجستري 
وهذا مثال 
DimFnameAs SEE LG‏ 
Fname = InputBox ("pمw| JësÎ")‏ 
Interaction.SaveSetting ("MCCN", "mhmad", "Style", Fname)‏ 


(GetSetting) دة‎ 


KEY CURRENT USERSoftwar®$VB and VBA Program Settings 


بحيث المعلومات التي أدخلناه من الدالة السابقة نحضرها أولا للدالة نفس شكل الدالة في كل من 
الوسطاء ماعدا الأخير حيث استبدل بقيمة اوه( حيث هي القيمة الافتراضية بحال لم تجد 
الدالة المفتاح وهي مفيدة وتجنب الأخطاء من أجل التحكم بالخصائص بشكل مقبول 


MsgBox (Interaction.GetSettig ("MCCN", "mhmad", "Style", 
۳ +) ) 


(DeleteSetting) lil 


فأما هذه الدالة لعلها تستخدم في حال برامج التنصيب وإزالته حتى تقوم بجعل رجستر المستخدم 
نظيف ولا يحوي أي قيمة ما أما من أجل الوسطاء فهي نفس التي سبقتها أي (الرئيسي- الثانوي 
المفتاح المراد حذفه) وعندما تكتب المفتاح الرئيسي فقط فإنه سيحذف مجلد الإعدادات بأكمله 
وإذا كتبت الرئيسي والثانوي سيقوم بإبقاء الثانوي وهكذا 


Interaction. DeleteSetting MCCN", "mhmad", "STyle") ' خف‎ 
المفتاح‎ 

Interaction. DeleteSetting “MCCN", "mhmad")' حذف انفهرس‎ 
الثانوي‎ 

Inteaction.DeleteSetting "“"MCCN") ' سvaıأiرلا حذف الفهرس‎ 

فا ها 


السايقة 
ولم تكن مثبت الفهرس 


HKEY CURRENT USER\Software\VB and VBA Program Settings 


فالطامة الكبرى سوف تحدث ورسائل الأخطاء ستلاحقك هذا ما حدث في الإصدار القديم أما في 
الإصدار الجديد ربما أبدلت (ميكروسوفت) بدالة ذكية 


(GetAlIISettings) ll 

هل تريد على الحصول على كل شيء موجود في مسار المسجل الخاص وعلى القيم التي 
تحتويها المفاتيح . تكر عندما قلت لك أن المصفوفات الثنائية لن تلزمنا إلا بدالة واحدة وهي هذه 
الدالة فالصف الأول منها يعيد اسم المفتاح بمسار مسجلك المحدد والصف الثاني يرج ما يحتويه 


مفتاحك من قيم 
DimTAs Long WAS Long‏ 
DimX (,)JAڱs SEELRG=: GELALLSEEECINGS ("Tec™,y, "MEECN™)‏ 
ForT=0 ToUBound (X)‏ 
ForW=0 ToUBand (X)‏ 
ترجع المفتاح و قيمته Msgbox (X(T, W))'‏ 
Next‏ 
Next‏ 


الدالة (e11طS)‏ 
هذه الدالة قديمة أيضا وهي من أجل تشغيل البرامج التنفيذية أو الطلب من برامج تنفيذية تشغيل 
برامج من اللاحقات الأخرى 
أما ما أضافه مبرمجو ها هو ما يسمى مصطلح الانتظار مع تحديد مدة الانتظار أي مهلة ريثما 
يقوم البرنامج بتنفيذ أوامره ومن ثم التحكم فيه إن شئت عن طريق الدالة ور)(,عS؟‏ 
أو ما هناك 
وتكمن جمالية خاصية الانتظار فمتلا تريد أن تنصب برنامج معين ولكن لانريد أن يظهر النافذة 
الحامل للرقم التسجيل إلا لينتهي برنامج التنصيب فتقدم لك هذه الدالة الخاصية بأريحية (لن ينتقل 
التركيز لنافذتك حتى ينتهي البرنامج من عمله 

Interaction.Shell CISetup.exe", 

AppWinStyle.NormalFocus, Tru® 


لن ينتق التركيز للبرنامج حتى ينتهي من عمل البرنامج الأخر ولعل هذه الفائدة تفيد في كتير من 
الأحيان أم إذا كنت تريد تحديد وقت محدد حتى تستطيع العمل في برنامجك ما عليك إلا تحديد 
وقت وهو بالملي ثانية 

Interaction.Shell "CISetup.exe", ٠ 


AppWinStyle.NormalFocus, Trueg100D 
أما أوضاع الاستدعاء فهي كالتالي‎ 


تشغيله بgضعÙعه‏ اlEl¬ذF٠AppWinStyle.NormalFoCUS‏ 
وضخغ #ۍۈفdea AppWinStyle. Hi‏ 
gضعخg AppWnStyle.MaximizedFocCusjıS‏ 
وضع nصغڙzedFocCuS AppWinStyle.Minimi‏ 
بدون تركکيز علس lاijılنnalچMinimizedNoFoCUS‏ 
ولكن إذا كانت حالة البرنامج في حالة الانتظار فلن تقيد كل 
الجالات ما عدا المخفي منها 


۹۱ 


(AppActivate) lll 


هذه الدالة أمرها غريب فلقد كانت في الإصدار القديم تفيد بالغرض المطلوب لها بدون الحاجة 
لعنون البرنامج الذي سيظهر في قائمة المهام 
DimfAs Integer‏ 


f =Shell cJAthanBasic.exe™) 


لjù‏ iۃJna AppActivate f)‏ 
هذه الطريقة غير فعالة أبدا كما في الإصدار القديم في هذا المثال 


أما طريقة عملها فهي أن لكل برنامج يعمل في الذاكرة ما يسمى عنوان غير اسم الملف 


AthanBazic.e# 


2 هذا اسم الملف الموجود على الجهاز 


ت إدارة مهال CUO:‏ 


ملف خبارات عرض إطارات لياف تشغيل الك 
التطبيغات | العمليات | اوداء | شبكة الاتصال | 


المطلوب وخاصة للملفات التنفيذية حصرا 
أما للواحق الأخرى فلا داعي لذلك ما عليك إلا كتابة اسم الملف نفسه الموجود على الهارد 


سوف تعمل لكل اللواحق التي ')"غtxئ.Steup AppActivate athan‏ 
تعمل ف اة اكرة 
سل قال 1 اة 
فأقول : كثير من البرامج تفيد في كسر أقراص الاوتران الحاوية على أفخاخ برمجية أو غير 
ذلك 


(Command) ûl 


إن الكثير من شاهدها ومنهم القليل الذي عرفها ووظيفتها تكمن أهميتها بدعمها لملفاتك ولواحقك 
التي ت آ 1 


۹۲ 


فمثلا أنت صنعت برنامجا لقراءة الملفات النصية وحفظها 

وليس من المعقول أن من يستخدم برنامج يجب عليه تشغيل البرنامج أولا ومن ثم يحدد الملف 
المظلب خفظه اليس ذلك 

فما ضير أنه عندما يريد نقر النقرة المزدوجة على أي ملف نصي إذا كنت مسجله بالرجستري 
أو فتح بواسطة ومن ثم تحدد مسار برنامجك مما يؤدي إلى جعل برنامج هو برنامج التشغيل 

لمات نصية ولكن بعضهم قال فتح الملف يكون ولكن لا تتحمل أية بيانات إلى صندوق النص 

وأجيبهم أنهم لم يستعملوا هذه الدالة 

التنفيذ: 

عتما تفرم بقح ملف آي ملف بر اسطة بر ناجك تخل الفا المرب الها كاماذ 

وكما قلت لك عندما تستخدم 


1 | س الملف 2 الى اترید فراع 
تیاه 


Macromedia Flash Player BU ral 72 


Paint 8 

ProHtml 

RealPlayer 

BNA file processor ك‎ 

The Yisual Archive Utility. 2 
Windas Media Player 
windows Picture and Fax Viewer Î 
winRa4R 

WinZip Executable Î] 

۳5 جخرر اللصورضص 


رنامجنا التلفيذي ” 
1 استخدام البرنامج المخد فوما لاح هدا التو من البلغات 


السلراض... 


لذا پکن البرنامج لدی تریده مد رجا باشائمة أو لم يكن على امبو تر» بنك 
Em‏ 
إن الصورة أوضح 


بعد ذلك سوف تشحن الدالة C0۳ ۳١3۸0(‏ ) بمسار الملف النصي 
على سبیل المثال 


.)xt"‏ ملف نصي|:۲)" 
والآن جرب الكود التالي في الحدث التحميل للفورم ل102 


1"6×٤85£ عليك إضافة صتدزؤق تض اة‎ '" 
DimfAs Long 
IfInteraction.Command <> ""Then 
f =FilelLen I[Interaction.Command) 


۹۲۳ 


MsgBox Interaction. Command) 


FileOpen 1, InteractionCommang 
OpenMode. Input) 


TextBok.Text=FileSystem. InputString 1, f) 
FileClose 1) 
ERQ LE 


وجري الطريقة يالصورة السابقة يعد عمل 110د8ط اوتاه 


سوف يصفعك البرنامج ودل اجا 4 
|= چ 8 Micraosolt HET Framework,‏ 


An unhafdled excepliûn haz oecurrediln your application. lf you click 
Continue. the application Hill iahote this erat and attempt ta continue: 
I pau Elek Hui, hE application Will be 2h don imrnêdiately. 


Filê "Ea dg HR mat ford, 


we Dielals. Contin | iit 


"CO! ....txt"" 


مع أنه في ضندوق النص أغطاك السب لن أدخل وأقول لماذا ولكن لها بسابة 
الكود مع التعديل 


' كلتك إضاقة  صنكدوق نض اه‎ 16X86 
DimfAs Long 

DimXAs SEEITG 
IfInteraction.Command <> ""Then 


Msgbox I[nteraction.Command) 

X = Strings.Right (Interaction. Command, 
Len (Interaction. Command) = 1) 

X = Strings.Left(X, Len(X)- 1) 

f = FilelLen (xX) 

FileOperf1, X, OpenModeInpu} 

TextBok.Text=FileSystemInputString1, f) 

FileClos@1) 


وتنجح المهمة وابتسم دائما فأنت مبرمج فيجوال بيسك(أقوال الأخ 
ترکي العسيري) 


ذ4 (Environ)‏ 
كثيرون من صغروا من دوالنا ومن أعماها بالفعل أن من الحزينين على ما آلت إليه أحوالنا فهل 


تعلم يا أخي أن والحمد لله ت 5 تستطيع أن تحصل على اسم النظام و منصته والسواقة الرئيسية 
عناوين هامة في نظامك دون أن تكتب كلمة من ۸٨١|‏ وبالإصدارين نعم في السادس كانت 


8 


موجودة وابقي عليها في السابع نعم هذه الدالة تمثل معظم موارد نظام التي يقوم بها من 
العمليات الموجودة فيه فهي تعيد من الرقم ١‏ إلى ۳۲ من الخدمات بما فيها نوع المعالج وعائلته 
فكل رقم يقابله معلومة من معلومات النظام فالرقم ٠١‏ يعطي منصة النظام الحالي 
Msgbox Environ(1> ‘out put OS= .............‏ 
أو 
Msgbox Environ ("OS")‏ 
أي تستطيع كتابة الو سيط بطريقتين فاختار الأسهل 
ولکي تحصل عل خف ال مات اا ا 
Dim FCount As Byte‏ 
For Fcount = 1 To 32‏ 
ListBox1.items.add Environ(Fcount)‏ 


Next 
(CallByN mae) ذ4‎ 
هذه الدالة قلما من پستخدمها فيه من الاسم معناها الاستدعاء بواسطة الاسم ولکن هذه الدالة قلما‎ 
e 
فهي من الشكل العام‎ 
Cal lByName (ObjectRef, ProcName, UseCallType, 
ParamArrayArgs) 
ObjectRef 


هذا القسم فهوا لتحديد اسم الأداة البرمجي مثل [eطھ, ۲ex80×1‏ 


ProcName 

إسم الخاصية المراد استدعاء ها 

UseCallType 

نوع الاستدعاء حسب الخاصية(إذا كانت للقراءة أو تقبل التعديل أو أن تكون منهج) 


Cal lType.Methodجalikllب‎ ةصاlخ‎ 

خاصة بالخصائص التي تقبل التعديل†Se$eص1Typ Cal‏ 
نفس الأمر لمعظم الخصائص غCal1Type.Ie‏ 

خاصة بالخصائص التي هي للقر l«ةlType.Geltö Cal‏ 


:: و هذ ا تال‎ 
CallByName N¢ "Text", CallType.Set, "ديدzۍۈنiاi الاسم‎ 
رم‎ N ) 
CallByName N¢e "Hide", CallType.Method) 
(Partition) ذ4‎ 


هذه الدالة مهمة للغاية فهي تعيد الفئات من الارقام حسب إدخالتك فمثلا أنت تريد أن ترجع لك 


تدخل لها رقم ۲٠٠٠‏ وهو المحصور بين ۲٠٠١‏ و ۲٠٠١‏ حيث الفارق الذي يفصل بن هذان 
العددان هو ٠١‏ 


ولتبسيط عليك مثلا أدخل عمرك وقل لهذه الدالة أن ترجع لك الفئة هل أنت مواليد الثمانيات أو 
التسعينات أو الستينات أو الالفين(ممكن تكون صغير قليلا) 
فتقول هل أنت مواليدك ۱۹۸١‏ وهي محصورة ۱۹۷۰ وبين ۲۰۰۰ والقفز سیکون ٠١‏ سيقول 
لك أن هذا التاريخ محصور بين ۰ ,و 1۹۸٩‏ 
وهو المطلوب آي بالثمانيات 
وهذا المثال: 
Dim year As Long = 1986‏ 
Dim decade As String‏ 
decade = Partition (year, 1950, 2050, 10)‏ 


MSGEO (Tull ™ & CSEE(yeaE) &€ " عقت ق إةة4‎ " £ decade ¢ 
MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRt1Reading) 


(GetObject) ةllدلا‎ 
(CreateObject) ذ4‎ 


هاتان الدالتان أقوم بشرحهما في هذه الطبعة حتى لا أتطرق وأدخل بحرب سؤال وجواب على 
المكونات إلى أنني أريد أن أنوه 
أن المكتبات التي تكون K_S15‏ والتي لا يستطيع مضيف الإضافات إضافات توابعه فلن 
تسن تستطيع الاستفادة منها 
Const ForReading = 1, ForAppending = 8‏ 
Dim; Ob JESO, Ob JTS‏ 
objFSO = CreateObject ("Scripting.FileSystemObject™)‏ 


إتشاء الف اانتمي"' 

objTxt = objFSO.CreateTextFile ("C:\Test.txt", True) 
objTxt.WriteLine "Jوأژل!l "السطر‎ 

سطرين فارغين' 

objTxt.WriteBlankLines (2) 

obj Txt. We1itê "السطزر الز ابع"‎ 

objTxt.Close 


للإضافة فتح الملف' 

objTxt = objFSO.OpenTextFile ("C:\Test.txt", ForAppending) 
objTxt.Write vbcrlf & "سمnlzyèاl "السطر‎ 

objTxt.Close 


ققح الق للقر اة" 
objTxt = objFSO.OpenTextFile ("C:\Test.txt", ForReading)‏ 
قر اة كافة . التااتاة' 
msgbox objTxt.ReadAll‏ 
objTxt.Close‏ 


والحمد لله رب العالمين والصلاة على رسول الله وعلى آله وصحبه 
أاجمعين 


ا// 
mccn@gawab.com‏ 


